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then  fed  through  the  Document  Writer  again  to  produce 
the  camera—  ready  copy  from  which  the  pages  in  this 
Handbook  were  produced. 

That  the  computer  was  instrumental  in  speeding  up 
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FOREWORD 


As  high-speed  computers  assume  an 
increasingly  important  role  in  the  scientific? 
technological?  and  economic  life  of  modern 
society?  it  is  becoming  necessary  to  develop 
techniques  that  will  provide  the  user  with 
more  convenient  and  efficient  access  to  these 
machines* 

Over  the  last  few  years  there  have  been  a 
number  of  continuing  efforts  to  make  it  easier 
for  scientists  and  engineers  to  use  large 
digital  computers*  This  Handbook  presents  the 
result  of  one  of  these  efforts*  It  describes 
the  OMNITAB  general—  purpose  digital  computer 
program?  a  tool  that  permits  workers  who  are 
unfamiliar  with  programming  to  communicate 
with  a  large  computer  in  a  highly  efficient 
manner  by  means  of  simple  English  sentences* 

It  is  hoped  that  this  publication  will 
serve  two  purposes*  first?  to  provide  a  manual 
for  those  who  will  be  using  the  program?  and 
secondly?  to  serve  as  a  stimulus  for  further 
improvements  in  the  man—  machine  interaction* 


A*  V*  Astin?  Director* 
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PREFACE 


This  Handbook  describes  the  character istics , 
operation,  application  and  design  of  a  general-  purpose 
digital  computer  program  developed  and  employed  at  the 
National  Bureau  of  Standards  for  statistical  and 
numerical  analysis  of  experimental  data,  and  for  a  wide 
variety  of  computations  in  applied  mathematics,  science, 
and  engineering.  Three  important  characteristics  of  the 
OMNITAB  program  have  influenced  the  preparation  of  this 
work  in  the  present  format.  The  first  of  these  is  the 
generality  of  the  program  which  permits  its  ready 
application  to  such  diverse  problems  as  frequency 
sharing  of  satellites,  reference  tables  for 
thermocouples,  the  influence  on  range  measurements  of 
tropospheric  refraction  of  radio  waves,  analysis  and 
fitting  of  molecular  spectra,  and  a  variety  of  problems 
from  biometrics  to  econometrics  to  sociology.  The  second 
feature  is  the  interpretive  character  of  the  program 
which  enables  it  to  respond  to  simple  English  language 
instructions.  This  feature  permits  the  use  of  the 
digital  computer  by  non programmers  in  a  manner  highly 
analogous  to  the  way  they  use  desk  calculators*  Finally, 
the  conciseness  of  the  instruction  set  for  a  wide  class 
of  problems  makes  the  system  an  ideal  one  for  use  with 
remote  computer  stations- 

This  volume  is  essentially  a  user's  manual-  It 
discusses  the  general  philosophy  and  motivation  for  the 
program  design  and  specific  instructions  on  the 
application  of  the  program  to  a  variety  of  calculations 
arising  in  research  and  development  establishments*  The 
wide  spread  use  of  the  program  at  the  National  Bureau  of 
Standards  and  the  interest  shown  in  it  by  other  agencies 
have  motivated  the  preparation  of  this  volume  in  the  NBS 
Handbook  series* 

A  supplementary  report  is  in  preparation  addressed 
to  programmers.  It  contains  a  brief  discussion  of  the 
important  overall  logical  features  of  the  program  and  a 
detailed  symbolic  listing  of  the  main  program  and  a 
number  of  special  subroutines*  That  volume  should 
provide  the  experienced  programmer  with  sufficient 
information  to  add  new  subroutines  or,  if  space  is  a 
consideration,  to  replace  existing  subroutines  by  ones 
more  suited  to  the  local  machine?  operating  system,  or 
problem  applications-  As  the  program  now  contains  close 
to  100  subroutines  and  is  far  too  large  to  fit  into  a 
32K  core,  it  has  been  designed  as  a  complete  system 
operating  as  a  subsystem  under  the  IBM  system  called 
IBSYS. 

During  the  three  years  over  which  this  program  was 
developed  and  tested,  the  authors  received  considerable 
help  from  numerous  colleagues  at  NBS  and  elsewhere.  The 
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following  NBS  programmers  have  contributed  one  or  more 
subroutines  to  the  system-  Vernon  Dantzler,  J.  D. 
Waggoner,  Douglas  McMillan,  Steve  Muchnick,  Martin  L- 
Reilly,  Ruth  N-  Varner,  and  Bradley  A.  Peavy-  Much 
valuable  advice  and  encouragement  was  received  from  many 
colleagues  inside  of  NBS  and  outside  —  who  were 
motivated  to  use  the  program  in  its  early  stages-  A 
listing  of  these  would  be  either  too  long  or  too  prone 
to  serious  omissions-  Mention  should  be  made  however  of 
the  appreciation  which  the  authors  feel  for  the 
consistent  encouragement  and  sterling  advice  proffered 
by  Joseph  M-  Cameron  and  Alfred  E-  Beam,  in  the  first 
instance  in  matters  of  the  statistical  treatment  of 
data,  and  in  the  second  in  elucidating  certain 
programming  subtleties  and  for  providing  a  critique  of 
the  OMNITAB  concept  and  organization-  They  are,  however, 
hereby  absolved  of  any  tarnish  which  may  adhere  to  the 
finished  product-  The  authors  appreciate  the  valuable 
help  received  from  a  number  of  colleagues  who 
volunteered  to  read  the  manuscript  in  its  many  versions- 
Among  these  are  T-  B-  Douglas,  M-  Greenspan,  G-  C- 
Sherlin,  R-  Moore,  and  H-  Matheson;  last  but  not  least 
Mrs-  P-  J-  Fowler  deserves  special  mention  for  her 
devoted  and  patient  preparation  of  the  manuscript- 

It  is  a  pleasure  to  acknowledge  also  the  valuable 
assistance  rendered  to  this  program  by  a  number  of 
outside  groups-  In  particular  to  A1  Beam  and  John  P- 
Menard  of  the  Computer  Science  Center,  University  of 
Maryland  for  making  staff  and  machine  time  available 
during  various  check  out  stages  of  the  program;  to  B-  D- 
Holbrook  of  the  Bell  Telephone  Laboratories  for 
supplying  the  subroutines  of  computing  the  elliptic, 
sin,  cos,  and  exponential  integrals;  to  Wm-  H-  Sickles 
of  the  University  of  Chicago  for  supplying  a  set  of 
improved  function  subroutines  prior  to  their  release  to 
the  SHARE  Library. 

Special  thanks  are  due  to  a  number  of  University 
colleagues  for  their  assistance  in  making  OMNITAB 
multilingual*  They  are  Professor  Pierre  Johannin,  and 
Professor  Audrie  Johannin  of  College  Scientifique 
Universitaire ,  Brest,  France;  Professor  E-  U-  Franck  of 
the  Institut  fur  Physikalische  Chemie  und  Electrochemie , 
Technische  Hochschule,  Karlsruhe,  Germany;  and  Professor 
Takahiko  Shimanouchi  of  the  Department  of  Chemistry, 
University  of  Tokyo,  Japan,  and  Dr-  Isao  Suzuki  of  the 
University  of  Tokyo  who  provided  a  number  of  subroutines 
which  formed  the  basis  for  the  matrix  operation  portion 
of  the  program. 

It  would  be  unusual  indeed  if  this  Handbook  were 
error— free-  The  authors  sincerely  hope  that  such  errors 
as  have  escaped  their  attention  will  cause  the  reader  no 
serious  difficulty  and  would  appreciate  early 
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notification  if  any  are  found.  As  the  program  will 
shortly  be  available  for  distribution,  they  would  of 
course  welcome  correspondence  concerning  the  experience 
of  others  in  applying  the  program. 

The  arrangement  of  a  description  of  a  system  as 
extensive  as  this  presents  the  authors  with  a  number  of 
difficult  choices,  each  of  which  has  drawbacks  as  well 
as  advantages.  We  have  tried  to  arrange  the  material  in 
such  a  way  as  to  provide  the  reader  first  with  the 
underlying  philosophy  of  and  motivation  for  the 
preparation  of  the  program,  and  then  with  a  broad  view 
of  the  entire  repertoire  of  commands  and  operations* 
After  this  the  material  is  divided  into  two  major 
portions  —  in  the  first,  sections  3  and  4  cover  details 
on  input,  output,  and  mathematical  operations  in  the 
ordinary  operating  mode.  The  latter  chapters  treat  the 
mathematical  and  statistical  analysis  operations,  the 
repeat  mode,  operations  on  matrices  and  arrays  of 
numbers,  and  other  more  sophisticated  operators* 

The  commands  (exclusive  of  matrix  and  array 
operations)  are  treated  together  in  chapter  3.  Their 
operation  is  illustrated  extensively  but  not  completely 
in  section  3*  9  via  examples  which  are  worked  out  fully. 
The  examples  have  been  arranged,  in  general,  in  order  of 
their  complexity  rather  than  in  the  logical  order  in 
which  the  instructions  are  given  in  chapter  3»  In 
addition,  a  number  of  problems  are  solved  again  in 
succeeding  chapters  employing  more  sophisticated 
instruction.  Problems  so  treated  are  cross—  referenced. 

Unlike  normal  programming  techniques,  the  user  need 
not  master  the  entire  vocabulary  to  perform  many 
substantial  calculations.  This  will  become  obvious  on 
examination  of  the  examples*  Some  of  the  more  consistent 
users  of  OMNITAB  who  employ  it  to  reduce  or  fit 
experimental  data  seldom  use  more  than  a  dozen  or  so 
commands.  In  general,  however,  many  users  have  been 
stimulated  to  tackle  larger  and  more  sophisticated 
calculations  requiring  a  more  complex  instruction  set. 

Our  advice  to  the  reader  is  to  read  the  introductory 
material  through  section  2-1,  glance  briefly  through  the 
entire  instruction  set  in  section  2*2,  skip  to  section 
4,  and  then  to  the  problems  in  section  3*  9«  These  should 
be  sufficient  to  stimulate  reference  to  the  appropriate 
parts  of  section  3  for  a  detailed  description  of  each  of 
the  commands.  It  would  be  profitable,  before  settling 
down  to  a  detailed  study  of  this  Handbook,  to  read  the 
first  two  or  three  pages  of  each  of  the  later  chapters 
to  obtain  a  broader  view  of  the  system.  From  there  on 
the  reader  must  be  governed  by  his  own  needs  or 
inclinations. 

Joseph  Hilsenrath*  Guy  G.  Ziegler*  Carla  G*  Messina* 
Philip  J.  Walsh*  and  Robert  J.  Herbold. 
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Preface  to  the  Second  Printing 


That  the  stock  of  the  first  printing  of  this 
Handbook  should  have  been  exhausted  almost  coincident 
with  the  appearance  of  the  reviews  of  it,  points  up  the 
keen  interest  in  user-oriented  systems  for  problem 
solving  on  modern  computers*  Equally  gratifying  is  the 
recognition  by  the  designers  of  more  conventional 
computer  languages  of  the  need  to  free  programmers  from 
many  of  the  tedious,  annoying,  and  error-generating 
rules  and  restrictions  of  early  versions  of  FORTRAN 
restrictions  which  are  largely  absent  in  OMNITAB* 

This  edition  differs  from  the  first  in  the 
following  ways:  a  number  of  typographical  errors  have 
been  corrected;  and  the  description  of  a  number  of 
commands  has  been  amplified  to  clear  up  any  ambiguity* 
A  section  has  been  added  describing  some  branching 
instructions  which  are  present  in  the  program,  but  were 
kept  subrosa  because  of  the  reluctance  of  the  authors  at 
that  time  to  have  OMNITAB  viewed  as  still  another 
programming  language*  The  current  trend  toward 
instructing  computers  in  a  more  natural  language  now 
makes  that  reservation  seem  academic* 

An  appendix,  written  by  Dr*  David  Hogben,  has  been 
added*  It  amplifies  the  discussion  of  a  large  number  of 
the  commands  and  shows  how  the  existing  commands  can  be 
used  to  perform  fairly  sophisticated  analysis  of 
experiments  which  were  not  specifically  provided  for* 
Aside  from  its  value  for  practicing  statisticians,  it 
shows  off  the  power  of  certain  of  the  manipulative 
commands  in  the  hands  of  an  ingenious  problem  solver* 
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1.  INTRODUCTION 


In  spite  of  the  successful  application  of  digital 
computers  to  important  problems  in  virtually  every 
subdivision  of  modern  science?  they  are  not  yet  being 
employed  widely  and  effectively  to  assist  in  the  routine 
day  to  day  computations  of  a  busy  laboratory.  They  have 
not  yet  replaced  the  mult icolumned  work  sheet?  the  use 
of  which  is  wide  spread  in  both  experimental  and 
theoretical  research. 

A  brief  catalog  of  these  routine  numerical 
calculations  would  include  interpolation  (linear  and 
nonlinear) ?  statistical  analysis?  smoothing?  curve 
fitting?  numerical  differentiation  and  integration?  and 
the  generation  of  tables  of  elementary  and  special 
functions?  and  tabulation  of  various  physical 
quantities.  These  mathematical  operations  obviously  have 
general  applicability.  Their  day  to  day  use  in  any 
individual  situation  is?  however?  quite  specialized  — 
too  specialized  it  would  seem  to  justify  the  preparation 
of  a  multitude  of  computer  programs  tailor-made  for  each 
application. 

Access  to  digital  computers  has  been  made  easier 
for  both  the  experienced  programmer  and  the  novice  by 
the  development  recently  of  a  variety  of  systems? 
compilers?  and  languages*  These  aids  have  encouraged 
many  scientists  to  learn  to  program  their  own  problems* 
In  spite  of  the  expanding  corps  of  scientist 
programmers?  there  is  now  and  will  continue  to  be  a  need 
for  painless  access  to  digital  computers  by  scientists 
who  are  not  programmers. 

In  an  earlier  report0  we  described  a  general- 
purpose  computer  program  which  was  designed  to  handle  a 
variety  of  ad  hoc  computations  which  are  ordinarily 
performed  on  desk  calculators*  That  program?  called 
OMNIFORM  I?  was  essentially  a  function  generator. 
Experience  gained  with  that  program  indicated  the 
feasibility  of  extending  it  to  include  numerical  and 
statistical  manipulation  of  tabular  data.  In  the  design 
of  this  program?  which  has  been  named  OMNITAB?  it  became 
clear  that  programming  techniques  had  developed 

Hilsenrath?  J. ?  and  Galler?  G.  M. ?  OMNIFORM  !•  A 
General  Purpose  Machine  Program  for  the  Calculation  of 
Tables  of  Functions  Given  Explicitly  in  Terms  of  One 
Variable?  National  Bureau  of  Standards  Technical  Note 
125  (PB  161626)  May  1962*  See  also  NBS  Technical  News 
Bulletin  43?  p  8.  (i960) 
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sufficiently  in  the  last  two  years  to  permit  the  user  to 
communicate  with  the  machine  via  English  sentences* 
Since  any  program  for  manipulation  of  tabular  data  must 
have  certain  arithmetic  capability,  the  entire 
arithmetic  and  function  generating  capability  of 
OMNIFORM  I  was  included  in  OMNITAB * 

The  motivation  for  the  development  of  the  program 
and  its  strong  user— orientation  arose  from  the  need  of 
one  of  the  authors  to  provide  a  group  of  nonprogrammers, 
engaged  in  a  wide  variety  of  thermodynamic  calculations, 
with  direct  access  to  a  large  digital  computer  on  a  day 
to  day  basis*  More  direct  and  immediate  access  is  needed 
than  is  afforded  by  employing  one  or  more  programmers  as 
middlemen  on  the  one  hand,  or  by  training  the  entire 
staff  to  program  on  the  other  hand*  The  first 
alternative  seemed  unattractive  in  view  of  the  shortage 
of  trained  programmers  and  the  second  seemed  even  less 
attractive  since  it  would  divert  the  scientists  from 
their  primary  duties  in  some  degree  if  they  just  dabbled 
at  programming  and  would  divert  them  to  a  serious  degree 
if  they  were  to  become  truly  proficient  programmers* 

Regardless  of  the  existence  of  “simple n  user- 
oriented  programming  languages,  if  the  job  is  to  be  done 
correctly,  the  user  must  pay  careful  attention  to  the 
rules  in  minute  detail*  There  is  no  doubt  that  these 
languages  and  others  are  important  to  the  progress  of 
computer  science  and  that  more  powerful  languages  are 
still  to  be  developed*  Our  point  here  is  that  the  use  of 
the  computer  should  not  be  restricted,  in  the  first 
instance,  to  those  who  have  mastered  programming  (even 
the  "simple"  kind)  or,  in  the  second  instance,  by  a 
system  which  requires  the  preparation  of  program  after 
program  for  the  miscellaneous  ad  hoc  computing  tasks 
which  face  every  experimenter. 

The  early  motivation  toward  a  do-it-yourself  system 
was  such  that  we  were  prepared  to  pay  a  considerable 
price  for  this  facility  either  in  the  length  of  the 
instruction  set,  or  in  inefficient  use  of  the  core,  and 
even  in  increased  machine  time*  Very  early  in  the 
development  of  the  program  it  became  clear  that  there 
was  really  no  need  to  sacrifice  efficiency.  The 
interpretive  mode  is  really  very  fast*  As  the  program 
grew,  as  more  commands  were  added,  and  as  it  was  applied 
to  increasingly  more  complex  problems,  it  became  clear 
that  in  spite  of  the  outwardly  elementary  character  of 
the  commands  the  instruction  set  was  surprisingly  short, 
and  in  many  problems  was  even  shorter  than  the 
corresponding  set  for  the  same  problem  written  in 
FORTRAN. 
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Experience,  extending  over  a  10  year  period,  with  a 
variety  of  computer  programs  written  in  the  conventional 
way  —  one  might  even  say  classical  way  —  indicated  to  us 
the  importance  of  freeing  the  user  from  annoying,  time 
consuming,  and  often  very  costly  consequences  of  fixed 
field  input;  of  supplying  the  machine  with  a  card  count 
on  each  input  of  data  or  providing  its  equivalent,  a 
flag  word  in  some  fixed  location.  Another  annoying 
feature  of  conventional  general-purpose  programs  is  the 
cumbersome  system  of  selecting  options  via  integers  in 
fixed  field  locations*  OMNITAB  frees  the  user  from  all 
of  these  unnecessary  chores*  The  program  accepts  numbers 
and  other  input  wherever  they  appear  on  the  card;  the 
program  counts  the  cards  read  in;  and  the  major 
subroutines  which  perform  statistical  analysis,  curve 
fitting,  finite  differencing,  etc* ,  have  virtually  all 
options  programmed  in*  In  those  instances  where  options 
are  unavoidable,  they  are  incorporated  in  the 
instructions  in  a  conversational  tone  so  that  recourse 
to  a  dictionary  of  options  or  a  complicated  set  of  rules 
is  unnecessary. 

A  good  example  of  the  amount  and  variety  of  results 
which  it  seems  reasonable  to  provide  on  an  automatic 
basis  without  option  is  provided  by  the  instruction. . . 

STATISTICAL  ANALYSIS  OF  COL  6,  WEIGHTS  IN  COL  2 

This  command  sorts  the  data  in  increasing  order,  ranks 
them,  differences  them,  computes  both  the  weighted  and 
unweighted  mean,  and  the  decile  distribution.  In 
addition,  there  are  computed  34  measures  of  statistical 
characteristics  of  the  data  and  the  residuals,  including 
various  measures  of  central  tendency,  randomness, 
skewness  or  kurtosis,  etc.  These  results  are  all  printed 
out  on  two  or  more  pages,  without  any  further 
instruction  (see  figures  5—1  and  5—2).  In  addition,  the 
deviations,  ordered  data,  rank,  and  the  34  statistical 
characteristics  are  stored  respectively  in  columns  46, 
45,  44,  and  43  of  a  46  column  work  sheet  so  as  to  make 
them  available  for  further  calculations  or  to  permit  the 
selective  storage  of  some  of  them  for  further  analysis 
or  comparison  with  like  results  from  subsequent  data 
sets  (see  figure  5“ 3)  • 

Another  command  which  provides  a  comprehensive 
automatic  printout  ±s» 

POLYFIT  COL  4, WEIGHTS  IN  COL  3,X  IN  COL  5, USE  7TH  DEGREE 
(See  figures  5—6,  5-7,  and  5—8.) 


3 


From  the  very  beginning  it  has  been  our  objective  in 
designing  the  logic  and  structure  of  OMNITAB  to  provide 
the  user  with  maximum  flexibility,  generality,  and 
sophistication  and  yet  keep  to  a  minimum  the  requirement 
for  prior  detailed  knowledge  of  computer  hardware* 
During  the  past  3  years  OMNITAB  users  have  ranged  from 
those  who  had  never  examined  a  punched  card  in  detail  to 
experienced  programmers*  As  is  to  be  expected  these 
extremes  formed  a  small  minority*  Even  those  without 
prior  contact  with  punched  cards  learn  very  early  the 
advantage  of  being  able  to  punch  their  own  cards*  For 
this  reason,  we  assume  in  this  Handbook  that  the  user  is 
familiar  with  punched  card  equipment* 

Even  a  casual  contact  with  the  professional  computer 
literature  and  particularly  with  programming  textbooks 
makes  one  realize  the  dependence  of  conventional 
programming  on  flow-charts*  In  view  of  the  important 
role  flow-charts  play  in  other  programming  systems,  the 
absence  of  any  reference  to  flow-charts  in  this  Handbook 
deserves  some  explanation.  The  explanation  is  quite 
simple*  Flow-charts  are  no  more  necessary  in  carrying 
out  OMNITAB  calculations  than  they  are  in  doing 
calculations  on  a  desk  calculator.  At  most,  all  that  is 
required  there  is  to  keep  track  of  which  column  of  the 
work  sheet  contains  which  values*  So  it  is  with  OMNITAB* 
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1*1*  General-Purpose  Programs 

The  motivation  to  facilitate  communication  by 
practicing  scientists  (including,  of  course,  engineers, 
statisticians,  economists,  psychologists,  etc*)  with  the 
computing  machine  in  as  natural  and  direct  a  manner  as 
possible,  is  not  peculiar  to  ourselves*  The  desire  to 
address  the  machine  via  English  words  acceptable  to  a 
completely  assembled  general— purpose  program  has 
brought  forth  a  number  of  systems*  Considering  their 
diverse  origins,  the  following  quotations  show  a 
remarkable  degree  of  consistency* 

nCOGO  -  a  computer  programming  system  for 
civil  engineering  problems  *  *  *  has  the 
following  characteristics!  The  instructions  or 
commands  to  the  computer  which  the  engineer 
uses  to  express  the  solution  of  a  problem  are 
at  approximately  the  same  technical  language 
level  as  instructions  which  one  engineer  would 
use  in  describing  his  solution  to  another 
engineer*  11  C*  L*  Miller0 

n...  It  is  felt  that  this  language  is  close  to 
the  language  a  statistician  would  use  to 
express  his  problem  to  other  statisticians  so 
that  the  statistician  wishing  to  perform 
certain  multivariate  analysis  has  a  minimum  of 
computing  rules  to  learn  before  he  can  present 
his  problem*  11  B*  E*  Cooper00 

"The  program,  hereafter  referred  to  as  DAM 
(Data  processing  and  Multiple  regression) 
facilitates  the  preparation  of  input  data  to 
be  used  in  multiple  regression  analysis*  It 
enables  users  without  specific  programming 
knowledge  to  write  sequences  of  desired 
computations  essentially  in  the  form  in  which 
they  would  give  instruction  to  a  statistical 
assistant.  11  R*  R*  Rhomberg  and  L* 
Boissonneault0 


Miller,  C*  L*  COGO  -  A  Computer  Programming  System  for 
Civil  Engineering  Problems  (Civil  Engineering  Dept* , 
Massachusetts  Institute  of  Technology,  Aug*  15,  1961)* 
Cooper ,  B*  E*  Designing  the  Data  Presentation  of 
Statistical  Programs  for  the  Experimentalist 
34th  Session  of  the  International  Statistical  Institute, 
Ottawa,  Aug*  1963  * 

°°°Rhomberg,  R*  R*  and  Boissonneault,  L*  A  General- 
Purpose  Computer  Program  for  Data  Processing  and 
Multiple  Regression  ( DAM) , International  Monetary  Fund, 
Washington,  D*  C* ,  June  1962* 
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The  above  programs  fall  into  two  main  classes ?  as  do 
other  numerous  efforts  along  this  line:  Those  that  are 
interpretive  and  perform  their  work  via  English  words? 
and  those  that  depend  largely  upon  numbers  suitably 
coded  to  various  entry-points  and  program  options* 

A  notable  representative  of  the  first  group  —  to 
which  OMNITAB  obviously  belongs  —  is  the  very  successful 
program?  COGO°  ?  devised  by  Professor  C.  L.  Miller  of  the 
Civil  Engineering  Department  of  M* I-T. ?  which  solves 
problems  involving  such  coordinate  geometry  calculations 
as  arise  in  surveying  and  related  work.  We  know  of  no 
others  in  this  category  and  hasten  to  remark  that  —  for 
all  of  its  outward  similarity  ~  COBOL00  does  not  belong 
in  this  group?  since  it  is  a  programming  language  from 
which  a  binary  program  is  compiled?  and  not  a  fully 
compiled  program  or  system  of  programs.  While  it  might 
be  argued  that  the  OMNITAB  vocabulary  does  indeed 
represent  a  programming  language?  it  is  our  position 
that  even  though  a  portion  of  the  command  structure 
could  possibly  form  the  basis  of  a  programming  language? 
the  majority  of  the  specialized  commands  could  not  be  so 
considered.  In  any  event?  such  considerations  are  beyond 
the  scope  of  this  Handbook. 

A  most  notable  example  of  the  second  group?  to  which 
OMNIFORM  1°  belongs?  is  the  extensive  series  of 
statistical  programs  prepared  by  Health  Sciences 
Computing  Facility  of  the  School  of  Medicine  at  the 
University  of  California  in  Los  Angeles  called  BMD° ° 0 . 
Other  statistical  packages  are  referred  to  in  chapter  5. 
They  do  not?  however?  exhaust  the  list.  The  few  programs 
we  have  examined  were  too  specialized  to  meet  the  need 
which  the  OMNITAB  program  was  designed  to  satisfy. 

If  the  existing  general-purpose  programs  do  not  go 
far  enough  to  satisfy  the  needs  for  more  direct  and 
efficient  access  to  the  machine?  neither  do  the  very 
useful  and  admittedly  successful  streamlined  and 
simplified  programming  systems.  This  is?  in  our  opinion? 
the  case  even  for  those  systems  whose  stated  objectives 
coincide  closely  with  our  own  and  the  quotations  above. 
A  short  bibliography  of  general-purpose  computer 
programs  is  given  at  the  end  of  this  chapter  (section 
1.3). 


loc.  cit. 

00 COmmon  Business  Oriented  Language. 

°°°Dixon?  W. J. ,  Editor?  BMD  Biomedical  Computer  Programs 
Jan.  1964?  UCLA  Book  Store?  Los  Angeles  24?  California. 
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1*2*  The  Operating  System 

A  few  words  are  in  order  at  this  point  concerning 
operating  systems  for  large  computers*  In  early  computer 
designs  and  on  many  small  computers  even  today,  the 
operator  manipulates  the  computer  via  a  typewriter  or  a 
teletype  key  board*  He  enters  data,  modifies 
instructions  or  halts  the  computer  when  so  desired* 
Conversely  the  computer  often  halts  waiting  for  the 
operator  to  supply  the  next  piece  of  information  for  a 
problem  or  to  supply  the  next  problem  when  the  current 
one  is  finished*  Even  where  the  input  is  via  paper  tape 
or  via  punched  cards,  there  is  an  attendant  delay  of 
time,  and  consequently  a  cost  in  dollars*  Such  delays 
can  be  tolerated  on  small  machines  and  are  often 
considered  a  desirable  attribute  of  the  smaller 
machines* 

On  the  large  machines,  however,  where  the  rental 
time  runs  to  hundreds  of  dollars  per  hour,  such  delays 
cannot  be  tolerated*  These  machines  must  be  run  under  a 
supervisory  or  monitor  system  which  automatically  goes 
from  one  problem  to  the  next  with  a  minimum  of  reliance 
on  human  operators*  To  achieve  this  it  is  necessary  to 
prepare  the  input  on  magnetic  tape  sometime  prior  to  its 
actual  running  on  the  machine*  This  is  invariably  done 
on  a  smaller  auxiliary  machine  which  performs  the  input 
and  output  functions  for  the  larger  machines* 

Even  under  these  systems,  operators  are  still 
required  to  mount  and  unmount  data  tapes  and  the  various 
system  tapes*  The  amount  of  such  manual  manipulation 
varies  with  the  system,  with  the  number  of  tape  units 
available,  and  with  the  nature  and  length  of  the  problem 
being  run* 

Since  OMNITAB  is  itself  a  system  containing  nearly 
100  subroutines  and  over  250  commands,  it  must  be 
integrated  into  one  or  more  of  the  operating  systems  in 
use  at  the  particular  installation.  At  the  National 
Bureau  of  Standards,  for  example,  an  early  version  has 
been  running  successfully  on  the  Bell  Monitor  System  and 
the  current  version  has  been  incorporated  as  a  subsystem 
under  IBSYS  as  modified  by  the  NBS  Computation 
Laboratory. 

The  reader  of  this  Manual  need  not  be  concerned  at 
the  outset,  and  perhaps  not  even  later,  with  the 
characteristics  of  various  operating  systems*  All  that 
is  required  is  to  supply  the  few  control  cards  demanded 
by  the  particular  system*  Figure  1—1  shows  the 
arrangement  of  the  control  cards  in  relation  to  the 
OMNITAB  instructions  under  IBSYS,  while  figure  1—2  shows 
the  location  of  the  control  commands  on  the  cards* 
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A  run  on  the  machine  is  initiated  by  a  card  carrying 
SJOB  punched  in  columns  1  through  4  and  such  other 
information  as  may  be  required  by  the  particular 
installation  at  which  the  program  is  run.  The  second 
card  is  a  $EXECUTE  card  (punched  in  columns  1  through 
8)  and  the  system  name  OMNITAB  punched  in  columns  16 
through  22»  This  card  pulls  in  the  OMNITAB  program  from 
the  IBSYS  System  tape  and  stores  it  in  the  core  (the 
magnetic  memory  of  the  IBM  7094).  A  run  may  contain  one 
or  many  independent  problems  each  of  which  is  preceded 
by  a  card  carrying  the  word  OMNITAB.  No  special 
instruction  is  required  between  problems  other  than  the 
OMNITAB  card  which  initializes  the  program  parameters 
and  clears  out  the  working  space  for  the  new  problem. 
The  STOP  card  at  the  end  of  a  series  of  problems  ends 
the  run  by  turning  control  back  to  the  OMNITAB  monitor. 


Figure  1—1.  Arrangement  of  Control  Cards  for  Omnitab 
runs* 
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Figure  1—2*  Location  of  Control  Commands  on  the  Cards- 
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2.  THE  OMNITAB  PROGRAM 


2 • 1*  General  Characteristics 

OMNITAB  is  a  completely  assembled  interpretive 
program  for  the  IBM  7090/ 7094  which  permits  direct  use 
of  the  machine  by  scientists  or  engineers  without 
knowledge  of  programming.  Instructions?  given  in  the 
form  of  English  sentences?  control  the  flow  of 
calculations  in  a  manner  highly  analogous  to  the  logic 
which  prevails  in  carrying  out  computations  on  a  desk 
calculator.  More  precisely?  OMNITAB  simulates  desk 
computing  in  that  it  replaces  the  desk  calculator? 
mathematical  tables?  and  the  multicolumn  work  sheet.  The 
name  of  the  program  has  the  following  significance.  It 
is  one  in  a  series  of  omnibus  programs?  hence  the  omni. 
It  is  able  to  handle  a  wide  variety  of  tabular  numerical 
operations?  hence  the  tab.  It  has  a  versatile  function 
generating  capacity  and  can  handle  functions  of  two  or 
more  variables. 

The  instructions  for  the  program  are  given  via  a 
series  of  sentences  or  certain  abbreviations  of  them. 
Each  sentence  is  punched  on  a  card.  The  method  in  which 
OMNITAB  is  used  is  analogous  to  the  method  used  in 
carrying  out  calculations  on  a  desk  calculator.  The 
program  simulates  a  work  sheet  containing  46  columns 
having  101  rows*  Arguments  are  entered  or  generated  in 
specified  columns?  then  mathematical  or  manipulative 
operations  are  performed  on  desired  columns*  And 
finally? the  results  are  stored  in  the  designated  column. 
The  storing  is  done  in  two  modes?  either  by  addition  or 
replacement.  The  mathematical  operations  include  the 
arithmetic  operations?  the  elementary  and  special 
functions?  and  various  statistical  and  numerical 
analyses*  The  manipulative  operations  provide  for 
inverting?  promoting?  demoting?  exchanging?  shortening? 
erasing?  printing?  and  punching  columns  of  numbers. 

Although  the  instruction  is  given  in  sentence  form? 
only  the  first  word  (or  the  first  six  characters?  if  the 
word  has  more  than  six)  of  the  sentence  and  the  numbers 
are  crucial  to  the  operation.  The  machine  scans  the 
whole  card  and  picks  up  only  the  first  word  and  the 
numbers  and  ignores  the  intervening  words  completely. 
For  this  reason?  the  intervening  words  are  not  really 
needed.  Their  use  is?  however?  encouraged  to  enable  the 
user  to  read  his  own  instructions  more  easily. 

To  illustrate  the  use  of  the  OMNITAB  sentences? 
suppose  it  is  desired  to  multiply  a  column  of  numbers 
listed  in  column  one  by  those  in  column  three  and  to 
store  the  result  in  column  four.  The  instruction  is^ 
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MULTIPLY  COL  1  BY  COL  3,  STORE  IN  COL  4, 
or  simply 
MULT  1,  3,  4° 


In  this  instruction,  as  in  all  the  sentences  involving  a 
single  operation,  the  storage  is  always  by  replacing  the 
previous  value  in  the  storage  column.  To  be  able  to  add 
the  result  to  the  value  already  in  column  four,  we 
resort  to  a  corresponding  sentence  of  the  double 
operation  type.  In  this  category,  after  each 
mathematical  operation,  a  multiplication  is  performed, 
after  which  the  product  is  put  away  by  adding  to  the 
result  in  the  designated  column.  Thus  to  add  the  sum  of 
the  columns  one  and  three  to  that  in  four,  we  might  use 
the  following  instruction! 

ADD  1  TO  3,  MULT  BY  1. ,  ADD  TO  4 

or  simply 

ADD  1,  3,  1. ,  4 

or  even 

ADD  1  3  1.  4 


It  should  be  noted  that  the  ADD  instruction  applies  only 
to  columns  1  and  3,  that  the  last  figure,  4,  denotes  a 
storage  column,  and  that  the  extra  figure  (in  this  case 
1.)  is  always  a  multiplicative  factor.  The  presence  of 
this  extra  number  in  the  sentence  is  enough  for  the 
machine  to  distinguish  the  sentence  from  ADD  1,  3,  4 
(note  the  absence  of  decimal  points). 

A  system  such  as  this  would  be  severely  limited  if 
it  were  restricted  to  operating  only  with  numbers 
already  stored.  It  is  necessary  to  supply  numbers  such 
as  coefficients  or  exponents  or  constants.  OMNITAB 
achieves  this  through  a  very  simple  device.  In  an 
instruction  statement,  the  absence  of  a  decimal  point  in 
a  number  means  that  the  number  designates  a  column  in 
the  work  sheet  (certain  few  exceptions  to  this  rule  will 
be  noted  later) •  The  presence  of  a  decimal  point  causes 


Ordinarily  the  entire  word  is  used  although  only  the 
first  six  characters  are  needed.  In  addition,  four 
abbreviations  have  been  incorporated!  MULT,  SUB,  DIV, 
and  EXP.  Numbers  must  be  separated  by  a  comma  or  one  or 
more  blank  spaces. 
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the  number  to  be  read  as  itself.0  Thus  ADD  1.  TO  2 
means  add  the  value  1  to  numbers  stored  in  column  2 
while  ADD  1  TO  2  means  add  the  numbers  in  column  1  to 
those  in  column  2«  Similarly,  RAISE  2  TO  3.  means  take 
the  cube  of  the  values  in  column  2,  while  RAISE  2  TO  3 
means  raise  each  of  the  numbers  in  column  2  to  the 
exponent  specified  by  the  corresponding  number  in  column 
3- 


The  following  example  illustrates  how  the  computer 
is  instructed  to  carry  out  a  calculation  by  the  OMNITAB 
program. 

Suppose  we  wish  to  compute  a  table  of  values  of  a 
function  F  for  a  series  of  values  of  T  ranging  from 
1500,  in  steps  of  100  to  6000,  when  the  function  F  can 
be  represented  by  the  empirical  relation^ 

F  =  a(  1  -  In  T)  +  bT  +  cT2  +  dT3  +  eT4,  +  k 


where  a 

=  4- 6083000, 

d 

=  -1.  686851  X 

io"11, 

b 

=  -4- 309474  X  1Q“4, 

e 

=  0. 8721937  X 

10 -1?, 

c 

=  1. 276702  X  10-7, 

k 

=  -1.  851497, 

The 

OMNITAB  instructions  for 

the 

computational 

part 

of  this  problem  could  be  as  follows^ 

GENERATE  1500*  ( 100*) 6000*  IN  COL  1 

ADD  -1.  851497  TO  0-  AND  STORE  IN  COL  2 

RAISE  1  TO  4. ,  MULT  BY  0.  8721937E-15 ,  ADD  TO  COL  2 

RAISE  1  TO  3*  ,  MULT  BY  -1.  686851E-11,  ADD  TO  COL  2 

MULT  1  BY  1,  MULT  BY  1. 276702E-7,  ADD  TO  COL  2 

MULT  -4.309474E-4  BY  1,  MULT  BY  1- ,  ADD  TO  COL  2 

LOGE  OF  1,  STORE  IN  COL  3 

SUBTRACT  3  FROM  1. ,  MULT  BY  -4-6083,  ADD  TO  COL  2 


Numbers  written  using  E  format  may  have  the  decimal 
point  missing,  provided  that  a  numeral  precedes  the  E- 
For  example,  123E4  ( 123-  x  104)  is  a  valid  number  (so  is 
123E+4  or  123E04) ,  and  even  123E  4,  which  is  compatible 
with  Fortran  format  even  though  it  is  an  exception  to 
the  OMNITAB  rule- 
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Since  the  arrangement  of  the  OMNITAB  program  is  such 
that  only  the  first  word  of  the  sentence  constitutes  a 
command,  the  same  operations  would  be  performed  if  the 
other  words  were  deleted*  Thus,  the  program  would  work 
also  if  the  instructions  were  as  follows* 

GENERATE  1500*,  100*,  6000*,  1 

ADD  -1* 851497,  TO  0* ,  2 

RAISE  1,  4*,  0* 8721937E-15,  2 

RAISE  1,  3*,  -1* 686851E-11,  2 

MULT  1,  1,  1.276702E-7,  2 

MULT  “4* 309474E-4,  1,  1*,  2 

LOGE  1,  3 

SUB  3,  1* ,  “4*  6083,  2 

In  the  above  instructions,  some  of  the  results  are 
simply  stored  while  others  are  stored  by  adding  into 
results  previously  contained  in  the  column*  The  nature 
of  the  store  is  not  optional*  It  is  tied  to  the  number 
of  arguments  (numbers)  contained  in  the  sentence*  For 
example,  in  line  2  of  the  above  instructions,  the  result 
is  stored  by  replacement  because  there  are  three  numbers 
in  the  sentence,  while  in  line  8  the  result  is  stored  by 
addition  because  there  are  four  numbers  in  the 
sentence*0  This  point  should  be  more  evident  after  an 
examination  of  the  basic  OMNITAB  sentences  contained  in 
section  2*  2*  Note  the  alternate  notation  for  the 

interval  in  the  GENERATE  instruction  in  the  two 

examples* 

It  should  be  observed  that  nowhere  in  the  above 
instructions  was  any  mention  made  of  the  length  of  the 
column.  That  is  indeed  one  of  the  tours  de  force  of  the 
program.  The  length  of  the  column  is  determined  from  the 
GENERATE  instruction.  This  length  is  stored  in  a  special 
cell  in  the  core  (called  NR MAX)  and  used  by  the 

subsequent  subroutines  to  tell  them  how  far  down  the 
column  to  operate* 


Actually  the  mode  of  storage  is  controlled  by  a 
determination  by  the  program  that  the  sentence  contains 
either  the  minimum  number  of  arguments  required  for  the 
operation  and  storage  or  one  additional  argument* 
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At  the  start  of  a  calculation  the  word  OMNITAB 
clears  out  the  work-sheet  and  sets  various  program 
parameters  to  zero  or  any  other  appropriate  value- 
NRMAX  in  particular  is  se+  to  zero  and  until  it  is  reset 
to  something  else,  no  operations  can  be  performed-  The 
instructions  GENERATE,  READ,  SET,  and  GQUAD  set  NRMAX  to 
an  appropriate  value-  As  its  name  implies,  it  is  always 
the  maximum  length  (the  length  of  the  longest  column). 
It  can  also  be  modified  by  the  instruction 

RESET  LENGTH  TO  , ,  ROWS 
or  simply 
RESET  15 

At  the  beginning  of  an  OMNITAB  calculation,  all  of 
the  columns  contain  zeros-  Subsequently  the  entire  work 
sheet  can  be  erased  (replaced  by  zeros)  by  the 
instruction  ERASE-  Specific  columns  can  be  erased  by 
instructions  such  as  ERASE  COL  2,  or  ERASE  3,  7,  9,  etc- 

The  programming  philosophy  underlying  OMNITAB  is  to 
simplify  the  use  of  the  program  by  the  user  at  the 
expense  of  the  original  programmer.  We  cite  the 
following  characteristics  of  OMNITAB  to  illustrate  the 
extent  to  which  this  point  has  been  pushed^ 

a-  The  input  is  variable  -  With  the  exception  of 
the  control  cards,  neither  the  words  nor  the 
numbers  need  to  be  in  any  fixed  location  on 
the  cards-  The  only  requirement  is  that 
numbers  must  be  separated  by  a  comma  or  one  or 
more  spaces  or  by  any  alphabetic  character 
except  E- 

b-  A  card  count  is  not  required-  The  program 
counts  the  data  cards  following  a  READ 
statement  - 

c-  The  program  distinguishes  between  data  and 
computing  instructions  automatically. 

d-  Format  statements  are  not  ordinarily 
required-  They  may  be  used  if  necessary  in 
inputting  (where  data  are  not  separated  by 
spaces)  or,  if  desired,  in  providing  a  compact 
printout  - 

e-  The  instructions  are  given  via  sentences 
containing  a  leading  word  or  acronym  and  a 
sequence  of  numbers  with  intervening  words  or 
spaces- 
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f.  Except  for  the  first  word  of  the  sentence, 
which  must  be  a  legitimate  word  in  the 
program’s  vocabulary,  the  remaining  words  in 
the  sentence  are  ignored •  They  may  or  may  not 
be  used  as  the  user  chooses-  Only  the  first 
word  must  be  used  precisely  as  given  in  the 
vocabulary;  the  intervening  words  may  be 
abbreviated,  truncated,  or  left  out  entirely. 

Before  we  discuss  the  vocabulary  list,  the  reader  is 
reminded  that  the  program  operates  in  two  modes-  The 
first  of  these  is  the  ordinary  mode,  where  the  machine 
reads  an  instruction  card,  executes  the  instruction,  and 
writes  the  instruction  on  an  output  tape  for  printing  at 
the  end  of  the  problem.  Once  this  instruction  is 
executed  it  is  no  longer  available-  The  other  mode  is 
the  repeat  mode,  in  which  instructions  can  be  stored  in 
the  core  and  used  over  and  over  again-  A  discussion  of 
the  repeat  mode  is  deferred  to  a  later  section. 
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legend 


2-2  .  OMNITAB  Vocabulary  and  Sentence  Structure 


++  =  A  COL  NO.  (NO  DECIMAL  POINT)  ##  =  AN  INTEGER  (NO  DEC  POINT)* 

**  =  A  CONSTANT  ( 1 2 . 34  *  1 . 2E-7 *  ETC . )  -  =  A  BLANK  SPACE 
$  $  =  A  COL  NO.  OR  CONSTANT 


INPUT  INSTRUCTIONS  (SEE  SECTION  3.1  FOR  MORE  INFORMATION  ) 

OMNITAB  (YOUR  NAME  AND  THE  DATE  HERE  WILL  IDENTIFY  EACH  PAGE) 

GENERATE  **  ( ** )  **  ( ** )  **  ...  IN  COL  ++ 

READ  COL  ++,++#++#++  #  ETC 

SET  IN  COL  ++*  ARGUMENTS  ON  CARDS  TO  FOLLOW 
FREAD  M  CARDS  INTO  COLS  ++,++,++  ETC 

(FREAD  MUST  BE  PRECEDED  BY  A  FORMAT  CARD  COMPATIBLE  WITH  THE  DATA) 

ORDINARY  OUTPUT  INSTRUCTIONS  (SEE  SECTION  3.2  FOR  MORE  INFORMATION  ) 

PRINT  COL  ++,++,++#ETC  (8  COL  LIMIT) 

FIXED  WITH  ,#  DECIMALS 

FLOATING  WITH  , ,  DECIMALS 

PUNCH  COL  ++*  ++.  ++»  ++  (4  COL  LIMIT) 

PLOT  COLS  +  +♦  ++#  ++♦  AGAINST  ++  (5  COL  LIMIT) 

PLOT  COLS  +  +*  ++#  ++»  AGAINST  ++  ABSC  FROM  **  TO  **  ORD  FROM  **  TO  ** 
NOSUMMARY  (SUPPRESSES  SUMMARY) 

SUMMARIZE  (RESTORES  SUMMARY) 

TITLE1-  (66  CHARACTERS  MAXIMUM) 

TITLE2-  (66  CHARACTERS  MAXIMUM) 

TITLE3-  (53  CHARACTERS  MAXIMUM) 

TITLE4-  (53  CHARACTERS  MAXIMUM) 

HEAD  COL  ++/  (12  CHARACTERS  ARE  ALLOWED  AFTER  /  ) 

NOTE —  (AS  APPROPRIATE) 

FOOTNOTE - -  (AS  APPROPRIATE) 

ABRIDGE  ROW  ,,  OF  COLS  ++*  ++#  ++*  ETC. 

STOP 

SPECIAL  OUTPUT  INSTRUCTIONS  (SEE  SECTION  3.3  FOR  MORE  INFORMATION  ) 


FORMAT  (AS  DESIRED#  IN  ACCORD  WITH  FORTRAN  RULES  ) 

FPRINT  COL  ++,++,++, ETC  (AS  ALLOWED  BY  FORMAT) 

FPUNCH  COL  ++#++,++,...  (AS  ALLOWED  BY  FORMAT) 

FABRIDGE  ROW  »#  OF  COLS  ++,++,++, ETC  (AS  ALLOWED  BY  FORMAT) 

T PR  I  NT  COL  ++#++,++,++...  (AS  ALLOWED  BY  FORMAT  BUT  DOES  NOT  PAGE) 
SPLOT  COLS  ++*  ++#  ++#  ETC.  AGAINST  ++ 

SPLOT  COLS  ++♦  ++#  +  +#  AGAINST  +  +  ABSC  FROM  **  TO  **  ORD  FROM  **  TO  ** 
NEWPAGE 

SPACE  »,  LINES 

PAGE  NUMBER  AT  LOCATION  #> 

PAGE  STARTING  WITH  #»  AT  LOCATION  »# 

NOLIST  (SUPPRESSES  LISTING  OF  INSTRUCTIONS) 

COMMANDS  (LISTS  CURRENT  OMNITAB  VOCABULARY  AND  SENTENCE  STRUCTURE) 

CGS  (SWITCHES  THE  FUND  PHYS  CONSTANTS  TO  THE  CGS  SYSTEM) 

MKSA  (SWITCHES  THE  FUND  PHYS  CONSTANTS  BACK  TO  THE  MKSA  SYSTEM) 

MANUAL  (LISTS  AN  ABRIDGED  VERSION  OF  SECTION  3  OF  THIS  HANDBOOK) 
WATSNU  (LISTS  PROGRAM  CHANGES  SINCE  THE  LAST  EDITION  OF  THIS  HBK ) 


The  symbol  , ,  is  used  also  for  the  degree  of  a 
polynomial,  the  number  of  points  in  a  process  or  terms 
in  a  formula,  a  row  number,  and  the  number  of  rows  and 
columns  of  a  matrix. 
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FUNCTION  GENERATION  (SINGLE  OPERATION)* 


ABSOLUTE  OF  $$  AND  STORE  IN  ++ 

ADD  SS  TO  $$  AND  STORE  IN  ++ 
SUBTRACT  $$  FROM  $$  *  STORE  IN  ++ 
MULTIPLY  $$  BY  $$  ,  STORE  IN  ++ 
DIVIDE  $$  BY  SS  #  STORE  IN  +  + 
RAISE  SS  TO  SS  •  STORE  IN  ++ 


EXP 

OF 

SS 

♦ 

STORE 

NEGEXP 

OF 

SS 

♦ 

STORE 

LOGE 

OF 

SS 

♦ 

STORE 

LOGTEN 

OF 

$$ 

♦ 

STORE 

ANTILOG 

OF 

$$ 

* 

STORE 

SORT 

OF 

SS 

* 

STORE 

SIN 

OF 

SS 

» 

STORE 

COS 

OF 

SS 

9 

STORE 

TAN 

OF 

SS 

9 

STORE 

COT 

OF 

SS 

9 

STORE 

SIND 

OF 

$$ 

9 

STORE 

COSD 

OF 

SS 

9 

STORE 

TAND 

OF 

$$ 

9 

STORE 

COTD 

OF 

SS 

9 

STORE 

ARCSIN 

OF 

$$ 

9 

STORE 

ARCCOS 

OF 

SS 

9 

STORE 

ARCTAN 

OF 

SS 

9 

STORE 

ARCCOT 

OF 

SS 

9 

STORE 

ASIND 

OF 

SS 

9 

STORE 

ACOSD 

OF 

SS 

9 

STORE 

ATAND 

OF 

SS 

9 

STORE 

ACOTD 

OF 

SS 

9 

STORE 

SINH 

OF 

$$ 

9 

STORE 

COSH 

OF 

SS 

9 

STORE 

TANH 

OF 

$$ 

9 

STORE 

COTH 

OF 

SS 

9 

STORE 

ASINH 

OF 

$$ 

9 

STORE 

ACOSH 

OF 

$$ 

9 

STORE 

ATANH 

OF 

$$ 

9 

STORE 

ACOTH 

OF 

$$ 

9 

STORE 

IN  ++ 

IN  ++ 

IN  ++  (BASE  E) 

IN  ++ 

IN  ++  (BASE  TEN) 

IN  ++  (SQUARE  ROOT) 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 

IN  ++ 


*  SINGLE  OPERATION  SENTENCES  ERASE  THE  COLUMN  BEFORE 
STORING  RESULTS*  SUBtDIV*MULT  ARE  ALSO  ALLOWED* 
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FUNCTION  GENERATION 


(DOUBLE  OPERATION)* 


ABSOLUTE  $$,  MULT  BY  $1  .  ADD  TO  ++ 


ADD 

SS 

TO 

SS  , 

MULT 

BY 

SS  ♦ 

ADD  TO 

4-4- 

SUB 

SS 

FROM  $$, 

MULT 

BY 

$s  , 

ADD  TO 

4-4- 

MULT 

$$ 

by 

SS  , 

MULT 

BY 

$$  * 

ADD  TO 

4-4- 

D I  V 

$$ 

BY 

s$, 

MULT 

BY 

SS  9 

ADD  TO 

4-4- 

RAISE 

$$ 

TO 

$$, 

MULT 

BY 

SS  f 

ADD  TO 

4-4- 

EXP 

OF 

$$, 

MULT 

BY 

$$ 

♦ 

ADD 

TO 

4-4- 

NEGEXP 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

LOGE 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

(BASE 

E) 

LOGTEN 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

ANTILOG 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

(BASE 

TEN) 

SORT 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

(SQUARE  ROOT) 

SIN 

OF 

$$, 

MULT 

BY 

$$ 

9 

ADD 

TO 

++ 

COS 

OF 

SS, 

mult 

by 

$$ 

9 

ADD 

TO 

TAN 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

COT 

OF 

SS, 

MULT 

BY 

$$ 

9 

ADD 

TO 

++ 

SIND 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

COSD 

OF 

SS, 

mult 

BY 

SS 

9 

ADD 

TO 

++ 

TAND 

OF 

SS, 

mult 

BY 

SS 

9 

ADD 

TO 

++ 

COTD 

OF 

SS, 

mult 

BY 

SS 

9 

ADD 

TO 

++ 

ARCSIN 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

+4 

ARCCOS 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

ARCTAN 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

ARCCOT 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

+  + 

ASIND 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

ACOSD 

OF 

$$, 

MULT 

BY 

$$ 

9 

ADD 

TO 

+  + 

ATAND 

OF 

SS, 

mult 

BY 

$$ 

9 

ADD 

TO 

ACOTD 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

SINH 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

++ 

COSH 

OF 

$$, 

mult 

BY 

$$ 

9 

ADD 

TO 

4-4- 

TANH 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

COTH 

OF 

SS, 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

ASINH 

OF 

s$, 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

ACOSH 

OF 

$$, 

MULT 

by 

$$ 

9 

ADD 

TO 

4-4- 

ATANH 

OF 

$$, 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

ACOTH 

OF 

SS  9 

MULT 

BY 

SS 

9 

ADD 

TO 

4-4- 

*  DOUBLE  OPERATION  INSTRUCTIONS  ADD  RESULTS  TO  THOSE 
ALREADY  IN  THE  COLUMN. 
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MANIPULATIVE  INSTRUCTIONS  (SEE  SECTION  3,5  FOR  MORE  INFORMATION) 


EXCHANGE  COL  ++  WITH  ++*  ++  WITH  +  +♦  ++  WITH  ++,  ETC 
ERASE  COL  ++*  ++,  ++♦  ++*  ETC 

DELETE  ROWS  **  99  *.  ETC  (PLACES  ZEROS  IN  ROW) 

TRANSPOSE  ROW  99  INTO  COL  ++*  99INTO  ++  ♦  m  INTO  ++♦  ETC 
(  5  ROW  LIMIT) 

FLIP  COL  ++  INTO  COL  ++*  ++  INTO  ++*  ++  INTO  ++♦  ETC 
PROMOTE  ARRAY  99  ROWS 
DEMOTE  ARRAY  >9  ROWS 

PROMOTE  99  ROWS 9  COL  ++  INTO  ++9  +  +  INTO  ++9  ETC 
DEMOTE  99  ROWS 9  COL  ++  INTO  +  +,  ++  INTO  ++ 

RESET  LENGTH  TO  99  ROWS 

DEFINE  ROW  99  COL  ++  AS  ROW  99  COL  ++ 

DEFINE  ROW  99  COL  ++  AS  COL  ++ 

DEFINE  **  AS  ROW  99  COL  +  + 

SHORTEN  COL  ++  FOR  COL  ++  =  **9  STORE  IN  COL  ++  AND  COL  ++ 

CLOSE  UP  ROWS  HAVING  **  IN  COL  ++,++9++  .  ••• 

SEPARATE  FROM  COL  ++  EVERY  99  ROW  STARTING  WITH  ROW  99  STORE  IN  ++ 
INSERT  IN  COL  ++  FROM  COL  ++  AT  EVERY  99  ROW9START ING  AS  99  ROW  9  STORE  I 


ARITHMETIC  OPERATIONS  (SEE  SECTION  3.6  FOR  MORE  INFORMATION) 


CHANGE  SIGNS  OF  COLS  ++9  ++9  ++9  ETC 
ROWSUM  COLS  ++9  ++9  ++9  STORE  IN  COL  ++ 

ROWSUM  ARRAY  STORE  IN  COL  ++ 

SUM  COL  ++9  STORE  IN  COL  ++ 

SUM  COL  ++9  ROWS  99  TO  99  9STORE  IN  COL  ++ 

SUM  COL  ++,  ROWS  ,9  99  99  99  9  STORE  IN  COL  ++ 
AVERAGE  COL  ++  STORE  IN  COL  ++ 

RMS  OF  COL  ++♦  STORE  IN  COL  ++ 


MAXIMUM 

OF 

COL 

++9 

STORE 

IN 

COL 

++ 

MAXIMUM 

OF 

COL 

++9 

STORE 

IN 

COL 

++9 

CORRESP 

VALUE 

OF  ++ 

IN 

MINIMUM 

OF 

COL 

++9 

STORE 

IN 

COL 

++ 

MINIMUM 

OF 

COL 

++9 

STORE 

IN 

COL 

++9 

CORRESP 

value 

OF  ++ 

IN 

DIAGONALIZE  $$  INTO  COLS  ++  TO  ++ 

SORT  COL  ++9  CARRY  ALONG  COL  ++9  ++9  ++9  ETC 
ORDER  COL  ++9  ++9  ++9  ++ 9  ETC 
PARSUM  COL  ++9  STORE  IN  COL  ++ 

PARPRODUCT  OF  COL  ++  9  STORE  IN  COL  ++ 

LENGTH  OF  ARRAY  STORE  IN  ++ 

COUNT  LENGTH  OF  COL  ++  STORE  IN  COL  ++  (SEARCHES  FOR  3  CONSEC  ZEROS) 
SINTEGRAL  OF  ++,  X  IN  ++9  STORE  IN  ++  (SUMMARY  INTEGRAL) 


CADD  REAL  IN  ++,TO  REAL  IN  ++,STORE  REAL  IN  ++  (COMPLEX  ARITHMETIC) 


CSUB  REAL  IN  ++9TO  REAL  IN  ++, STORE  REAL  IN  ++  (COMPLEX  ARITHMETIC) 
CMULT  REAL  IN  ++,BY  REAL  IN  ++9STORE  REAL  IN  ++  (COMPLEX  ARITHMETIC) 
CD  I V  REAL  IN  ++,By  REAL  IN  ++, STORE  REAL  IN  ++  (COMPLEX  ARITHMETIC) 


SPECIAL  FUNCTIONS  (SEE  SECTION  3.7  FOR  MORE  INFORMATION) 


LSUB 

9  9 

OF 

++ 

(LAGUERRE) 

TSUB 

9  9 

OF 

++ 

(CHEBYSCHEV) 

-  THE  POLYNOMIALS  (FSUBN) 

USUB 

9  9 

OF 

++ 

(CHEBYSCHEV) 

-  ARE  STORED  BACKWARD 

PSUB 

9  9 

OF 

++ 

(LEGENDRE) 

-  STARTING  WITH  N=1 

HSUB 

9  9 

OF 

++ 

(HERMITE ) ) 

-  IN  COLUMN  46 

STRUVE  SUB  0  OF  COL  ++,  STORE  IN  COL  ++ 

STRUVE  SUB  1  OF  COL  ++9  STORE  IN  COL  ++ 

SININT  OF  $$,  STORE  IN  COL  ++ 

COSINT  OF  $$♦  STORE  IN  COL  ++ 

EINT  OF  $$9  STORE  IN  COL  ++ 

COMPLETE  ELLIPTIC  INTEGRAL  K  =  $$ , PHI =$S *STORE  FIRST  KIND  IN  ++9 SECOND  I 
INCOMPLETE  ELLIP  INTEG 9  K  =  $$,  PHI=$$9  STORE  FIRST  IN  ++9  SECOND  IN  ++ 

ERROR  OF  $$♦  STORE  IN  COL  ++ 

CERF  OF  $$,  STORE  IN  COL  ++  (COMPLEMENTARY  ERROR) 

GAMMA  OF  S$«  STORE  IN  COL  ++ 


N  ++ 


++ 
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NUMERICAL  AND  STATISTICAL  ANALYSIS  (SEE  SECTION  5.1) 


DIFFERENCE  COL  ++,  ARG  IN  COL  ++  ( SD I FFERENCE  SUPPRESSES  PRINT  OUT) 
DIVDIF  COL  ++*  ARG  IN  COL  ++  (SDIVDIF  SUPPRESSES  PRINT  OUT) 

STATISTICAL  ANALYSIS  OF  COL  +  +  (SSTATIS  SUPPRESSES  PRINT  OUT) 

STATISTICAL  ANALYSIS  OF  COL  +  +  WEIGHTS  IN  ++ 

FIT  COL  ++*  WEIGHTS  IN  ++ »  VECTORS  IN  ++ ,  ++,  ++*ETC  (23  VECTORS  MAX) 
(SFIT  supresses  PRINT  OUT) 

POLYFIT  COL  ++*  WEIGHTS  IN  ++ ,  X  IN  ++ ,  USE  *,  DEGREE 
(SPOLYFIT  SUPRESSES  PRINT  OUT) 

SOLVE  FOR  COL  ++*  COEFFICIENTS  IN  ++*  ++*  ++*  ... 

GQUAD  WITH  **  POINTS*A  =  **,B  =  **  ,STORE  X  IN  ++*WTS  IN  ++ 

MAXMIN  X  IN  ++,  Y  IN  ++,  STORE  MAX  IN  ++*  ++  AND  MIN  IN  ++*  ++ 

INTERPOLATE  X  IN  ++,  Y  IN  ++  FOR  L=  »»  FOR  ,,  ENTRIES  IN  ++ 

USE  »*  POINTS*  STORE  IN  ++ 

DERIVATIVE  OF  X  IN  +  +*Y  IN  ++  FOR  L=.*  FOR  »*  ENTRIES  IN  ++ 

USE  ,  ,  POINTS*  STORE  IN  ++ 

LAGINT  OF  COL++*  USE  **  PO I NTS  * H  =  ** *  STORE  IN  ++  (UNIFORM  INTERVALS) 
HARMONIC  ANALYSIS  OF  COL  ++  FOR  »*  ORD IN ATES ( EVEN ) *  STORE  COEF  IN  ++ 
CENSOR  COL  ++  FOR  $$  REPLACING  BY  $$  STORE  IN  COL  ++ 

SELECT  IN  COL  ++»VALUES  APPROXIMATING  ++*TO  **  TOLERANCE  *STORE  IN  ++ 
SEARCH  IN  COL  ++  FOR  VALUES  IN  ++, CARRY  ALONG  VALUES  FORM  ++  INTO  ++  ETC. 


BESSEL  FUNCTIONS  (SEE  SECTION  3.8  FOR  MORE  INFORMATION) 


BEJZERO 

OF 

$$,  STORE 

IN 

COL 

++ 

BEJONE 

OF 

$S»  STORE 

IN 

COL 

++ 

BEYZERO 

OF 

$$,  STORE 

IN 

COL 

++ 

BEYONE 

OF 

$$*  STORE 

IN 

COL 

++ 

BEIZERO 

OF 

++*  STORE 

IN 

COL 

+  + 

BE  I ONE 

OF 

++*  STORE 

IN 

COL 

+  + 

BEKZERO 

OF 

++♦  STORE 

IN 

COL 

+  + 

BEKONE 

OF 

++»  STORE 

IN 

COL 

+  + 

BEIZERO 

OF 

++♦  OPTION 

1* 

STORE 

IN 

COL 

++ 

BEIONE 

OF 

++♦  OPTION 

1* 

STORE 

IN 

COL 

++ 

BEKZERO 

OF 

++*  OPTION 

1, 

STORE 

IN 

COL 

++ 

BEKONE 

OF 

++*  OPTION 

1. 

STORE 

IN 

COL 

++ 

(SCALED) 
(SCALED) 
(SCALED) 
(SCALED) 
IN  ++  AND  ++ 
IN  ++  AND  ++ 


BERBEI  SUB  0  OF  ++*  STORE  IN  ++  AND  ++ 

BERBEI  SUB  1  OF  ++*  STORE  IN  ++  AND  ++ 

KERKEI  SUB  0  OF  ++ »  STORE  IN  ++  AND  ++ 

K.ERKEI  SUB  1  OF  ++ *  STORE  IN  ++  AND  ++ 

BERBEI  SUB  0  OF  ++*  OPTION  1,  STORE 

BERBEI  SUB  1  OF  ++ ,  OPTION  1,  STORE 

KERKEI  SUB  0  OF  ++ ♦  OPTION  1*  STORE  IN  ++  AND  ++ 

KERKE I  SUB  1  OF  ++♦  OPTION  1,  STORE  IN  ++  AND  ++ 

DBERBEI  SUB  0  OF  ++*  OPTION  1*  STORE  IN  ++  AND  ++ 

DBERBEI  SUB  1  OF  ++,  OPTION  1*  STORE  IN  ++  AND  ++ 

DKERKE I  SUB  0  OF  ++♦  OPTION  1,  STORE  IN  ++  AND  ++ 

DK.ERK.E I  SUB  1  OF  ++ ,  OPTION  1,  STORE  IN  ++  AND  ++ 


(UNSCALED) 

(UNSCALED) 

(UNSCALED) 

(UNSCALED) 

(UNSCALED) 

(UNSCALED) 

(UNSCALED) 

(UNSCALED) 


ITERATION  AND  REPEAT  MODE  INSTRUCTIONS  (SEE  SECTION  6.1) 


BEGIN  STORING  INSTRUCTIONS 

INDEX  INSTRUCTIONS  •*  ♦♦  ♦*  ♦♦  BY  »* 

INCREMENT  INSTRUCTION  »*  BY  $$*S$*$$*ETC 
COMPARE  COL  ++  AND  ++  TO  A  TOLERANCE  OF  5$ 

ISOLATE  X  IN  ++*  FOR  COL  ++  EQUAL  **♦  STORE  IN  ++ 

ISOLATE  X  IN  ++,  FOR  COL  ++  EQUAL  ***  USE  ,,  POINTS*  STORE  IN  ++ 
I  SETUP  X  IN  ++*Y  IN  ++  *  NEW  Y  IN  ++♦  STORE  IN  +  + 

ITERATE  X  IN  ++,Y  IN  ++*NEW  Y  IN  ++*  STORE  IN  ++ 

FINISH  STORING  INSTRUCTIONS 

REPEAT  INSTRUCTIONS  *•  THRU  *•  »•  TIMES 
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MATRIX  OPERATIONS  (SEE  SECTION  7.1  FOR  MORE  INFORMATION) 


(  R  IS  NUMBER  OF  ROWS*  C  IS  NUMBER  OF  COLUMNS  ) 

MADD  (A)  IN  ,,  ++  *R=  *  *  C=*,  TO  (B)  IN  ,*  ++*START  STORING  IN  **  ++ 

MSUB  (A)  IN  »*  ++  *  R=  *  *  C=  *  *  FROM  (B)  IN  »»  ++ ,  START  STORING  IN  »»  ++ 

SCALAR  PRODUCT  OF  (A)  IN  ♦*  ++♦  R=*»  C=**  BY  ***START  STORING  IN  **++ 

MMULT  (A)  IN  »*  ++  *  R  =  *  *  C=*,  BY  (B)  IN  ,,  ++,  K=*,  START  STORING  IN  *,  ++ 

MRAISE  (A)  IN  »*  ♦+*  R=  *  *  C=*»  TO  B  =  ***START  STORING  IN  *.++ 

DIAGVEC  OF  (A)  IN  •»  ++*R=*,  STORE  IN  COL  ++ 

MTRANS  OF  (A)  IN  >,  ++ ,  R=**  C=*>  START  STORING  ON  •»  ++ 

VECMAT  (A)  IN  »*  ++  R=**  C=.*  START  STORING  IN  *»  ++ 

RESTMAT  FROM  »,  ++  R=**  START  STORING  IN  »»  +  + 

TRACE  OF  (A)  IN  ,,  ++  R=  *  *  STORE  IN  COL  ++ 

COLNORN  (A)  IN  »*  ++  R=*»  C=*,  START  STORING  IN  ••  ++ 

ROWNORM  (A)  IN  »*  +  +  R=**  C=,*  START  STORING  IN  »*  ++ 

TRANSFORM  (A)  IN  **  ++,R=*,  R=**  ROWS  OF  (U)  IN  *»  ++,  START  STORING  IN  >«  ++ 

BACKTRANS  (A)  IN  ,»  ++*R=*»  C=**  COLS  OF  (U)  IN  **  ++ »  START  STORING  IN  »>  ++ 

SYMUTM  (A)  IN  **  ++  R=** 

SYMLTM  (A)  IN  »*  ++  R=,* 

EIGENVALUES  OF  (A)  IN  *,  ++  R=,*  STORE  ROOTS  IN  COL  ++ 

EIGENVECTORS  OF  (A)  IN  *»  ++  R=*,  STORE  ROOTS  IN  ++ *  VECTORS  IN  *  *  ++ 

LINEAR  EQ*  COEF  IN  *»  ++  R=,*  RHSIDE  IN  COL  ++*  STORE  SOLUTION  IN  ++ 

(SOLVES  A  SET  OF  N  LINEAR  EQUATIONS  IN  N  UNKNOWNS.  N  =  45) 

INVERT  (A)  IN  »»  ++  R=  *  *  STORE  INVERSE  STARTING  IN  **  ++ 

(THE  MATRIX  MAY  BE  AS  LARGE  AS  46  BY  46  AND  NEED  NOT  BE  SYMMETRIC) 


ARRAY  OPERATIONS  AND  MANIPULATIONS  (SEE  SECTION  8.1  FOR  MORE  INFORMATION) 


ARAISE  (A)  IN  *,  ++,  R=  *  *  C=*,  TO  B  IN  ++,  START  STORING  IN  ••  +  + 

ARAISE  (A)  IN  ++  *  R  =  * »  C=**  TO  (B)  IN  **  ++,  START  STORING  IN  *•  +  + 
ALOGE  (A)  IN  **  ++  R=  *  *  C=,,  START  STORING  IN  »»  ++ 

ALOGTEN  (A)  IN  ,*  ++  R=,,  C=*,  START  STORING  IN  •>  ++ 

ADIVIDE  (A)  IN  ,,  ++  *R  =  *  *  C=,,  BY  $$♦  START  STORING  IN  ,*  ++ 

AMULT  (A)  IN  **  ++*  R=  *  *  C=,,  BY  (B)  IN  »*  ++ *  START  STORING  IN  *«  +  + 
MINEL  OF  (A)  IN  »*  +  +  R=*,  C=**  STORE  IN  COL  ++ 

MAXEL  OF  (A)  IN  *»  ++  R=*,  C=**  STORE  IN  COL  ++ 

BLOCKTRANSFER  OF  (A)  STARTING  IN  ROW  »*  COL  ++*R=*.  C=**  TO  ROW  *»  COL  *» 
APRINT  STARTING  IN  ROW  *»  COL  ++*  R=**  C=,* 

COALESCE  ON  FIRST  COL  OF  (A)  IN  »»  ++  R=,,  C=**  STORE  IN  •»  ++ 

COALESCE  ON  **  IN  THE  FIRST  COL  OF  (A)  IN  ,*  ++  R=*,  C=,*  STORE  IN  ,*  ++ 
ARRAYAVERAGE  ON  THE  FIRST  COL  OF  (A)  IN  »»  ++  *  R  =  *  »  C=,*  STORE  IN  •»  ++ 
ARRAYAVERAGE  ON  **  IN  FIRST  COL  OF  (A)  IN  »»  ++*R=**  C=»*  STORE  IN  **  ++ 
DUPLICATE  »»  TIMES  THE  ARRAY  IN  ,,  ++  R=*,  C=*,  START  STORING  IN  ••  ++ 
VECMULT  (A)  IN  *»  ++  R=»*  C=**  BY  $$♦  START  STORING  IN  »•  ++ 


SPECIAL  OPERATORS  (SEE  SECTION  9.1  FOR  MORE  INFORMATION) 


FORMULA  *  *  OF  COL  ++  , PARAMETERS  FOR  **  TERMS  IN  COL  ++ ,  STORE  IN  ++ 
EXPAND  $$  TO  ♦♦  POWER  IN  INTERVALS  OF  **  START  STORING  IN  ++ 

EXPAND  $$  TO  **  POWER  IN  INTERVALS  OF  **  START  STORING  IN  ++ 

PRODUCT  OF  COLUMNS  ++*++*++♦++♦ ETC  ♦  STORE  IN  COLUMN  ++  (DISCRETE  COLS) 
PRODUCT  OF  COLUMNS  ++  TO  ++*  STORE  IN  COLUMN  ++  (CONSECUTIVE  COLS) 

CTOF  OF  $$,  STORE  IN  COL  ++ 

FTOC  OF  $$,  STORE  IN  COL  ++ 

ATOMIC  MASS  TABLE  STORE  IN  ++ 

MOLWT  Z=  *  *  AM0UNT=**  Z= *  *  AMOUNT= ♦ ♦  . STORE  SUM  IN  COL  ++ 

EINSTEIN  TEMP  IN  $$ ,  VIBRATIONAL  FREQ ( IN  WAVE  NO)  IN  $$ 

EINSTEIN  TEMP  IN  $$ ,  FREQUENCY  IN  $$,  GAS  CONSTANT  R=** 

PFTRANS  TEMP  IN  $$♦  MOLECULAR  WEIGHT  ( M )  IN  $$ 

PFATOM  TEMP  IN  $$,  MOL  WT  IN  $$,  WAVE  NO  IN  ++,  G  IN  ++ 

PARTFUNCTION  TEMP  IN  $$,  WAVE  NO  IN  ++♦  G  IN  ++,  START  STORING  IN  ++ 
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2*  3*  A  Few  Simple  Rules 


1.  Aside  from  two  or  more  system  cards  which  are 
required  to  get  on  the  machine,  the  first  card  of  any 
problem  must  carry  the  word  OMNITAB. 

2*  The  word  OMNITAB  must  be  punched  in  card  fields  1-7 
and  should  carry  a  date  containing  at  least  two  numbers. 

3*  The  first  operation  must  introduce  a  set  of 
arguments  into  the  machine.  This  can  be  done  via  a 
GENERATE,  READ,  or  SET  instruction.  After  this  point, 
instructions  may  follow  in  any  order  consistent  with  the 
problem  at  hand. 

4-  TITLE,  HEAD,  FORMAT,  etc. ,  are  not  considered 
operations.  They  may  be  introduced  at  any  stage  - 
between  or  even  ahead  of  mathematical  operations.  In 
order  that  they  be  effective,  they  must  precede  the 
PRINT  instruction  to  which  they  are  to  apply.  These 
instructions  can  be  updated  or  modified  any  number  of 
times*  The  new  titles  or  headings  overwrite  the  previous 
ones. 

5.  Do  not  use  a  period  when  abbreviating  words  in  the 
instructions,  nor  immediately  after  a  TITLE2,  etc* 

6*  In  the  ordinary  operating  mode  certain  instructions 
like  ERASE,  CHANGE  SIGN,  etc. ,  can  have  as  many  as  25 
column  designations. 

7*  In  the  repeat  mode,  to  be  discussed  later,  a  maximum 
of  10  numbers  per  command  is  allowed,  otherwise  the 
limit  is  25  numbers* 

8.  Do  not  use  an  *  anywhere  except  in  calling  for  the 
fundamental  physical  constants. 

9*  Punch  one  card  per  instruction. 
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2*4*  Bibliography  of  OMNITAB  Applications 


The  following  publications  and  reports  refer  to 
work  involving  calculations  which  were  performed  in 
whole  or  in  part  on  OMNITAB. 

G.  F.  Blackburn  and  F.  R.  Caldwell 

Reference  Tables  for  Thermocouples  of  Iridium-Rhodium 
Alloys  Versus  Iridium. 

J.  Res.  NBS  68C  (Eng.  and  Instr.)  No  1. ,  41—59  ( Jan— Mar 
1964) • 


R.  C*  Butler  and  R.  Moore 

A  Computer  Program  for  the  Archibold  Method  of  Calculating 

Molecular  Weight  from  Ultracentrifuge  Data 

Unpublished  Report ,  American  Red  Cross,  Washington,  D.  C. 

E.  Davis 

Frequency  Sharing  by  Satellites  in  Circular  Equatorial 
Orbits. 

J.  J.  Freeman 

Real-^Time  Compensation  for  Tropospheric  Radio  Refractive 
Effects  on  Range  Measurements  NASA  CR— 109  —  National 
Aeronautics  and  Space  Administration,  Wash.  D.  C. 

(October  1964). 

Walter  J.  Lafferty,  Arthur  G.  Maki,  and  Earle  K.  Plyler 
High-flesolut ion  Infrared  Determination  of  the  Structure 
of  Carbon  Suboxide 

J.  Chem.  Phys.  Vol  40,  No-  1,  224-229,  1  Jan.  1964 

Walter  J.  Lafferty  and  Robert  J.  Thibault 
High-Resolution  Infrared  Spectra  of  C|2H2,  C12C13H2,  and 

C2  h2 

Journal  of  Molecular  Spectroscopy  14?  79-96  (1964). 

R.  Moore 

A  Computer  Program  for  Calculating  Sedimentation 
Coefficients  from  Ultracentr af uge  Data 

Unpublished  Report,  American  Red  Cross,  Washington,  D.  C. 

T.  L.  Porter,  D.  E.  Mann,  and  N.  Acquista 
Emission  Spectrum  of  CF 

Unpublished  work  of  the  Molecular  Spectroscopy  Section, 
NBS. 

Takehiko  Shimanouchi  and  Tao  Suzuki 

Method  of  Adjusting  Force  Constants  and  its  Application  to 
to  H20,  H2CO,  CH2 ,  Cl2 ,  and  their  Deuterated  Molecules. 

J.  Chem.  Phys.  Vol  41,  (1964) 
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3-  DISCUSSION  OF  THE  OMNITAB  COMMANDS 


The  basic  instructions  of  OMNITAB  are  given  on  page 
20  for  a  single  operation,  and  on  page  21  for  a 
limited  double  operation*  On  page  20  only  one 
mathematical  operation  is  possible,  after  which  the 
number  must  be  stored  in  some  column*  The  storage 
operation  replaces  what  was  in  the  column* 

On  page  21  we  have  added  a  multiplication 
operation  (it  is  never  anything  else  but 
multiplication).  The  third  operation  of  the  sentence, 
which  appears  to  be  an  ADD  instruction,  is  really  a 
storage  instruction  except  that  the  storage  is 
accomplished  without  clearing  out  the  previous  result* 
This  storage  is  therefore  equivalent  to  an  addition 
operation.  We  have  used  the  words  AND  ADD  TO  to  remind 
the  user  of  this  fact*  The  addition  is,  however, 
automatic  as  is  also  the  multiplication.  Only  in  the 
first  word  is  the  user  at  liberty  to  choose  any  of  the 
mathematical  or  manipulative  operations*  After  that,  the 
program  determines  how  many  numbers  there  are  in  the 
sentence,  at  which  time  it  knows  whether  the  sentence  is 
for  a  single  operation,  a  double  operation  type,  or  for 
a  special  subroutine. 

The  cumulative  multiplication  in  the  double 
operation  has  been  provided  to  facilitate  the  evaluation 
of  polynomials  or  series,  so  that,  when  computed,  a  term 
can  be  added  to  the  previous  terms  without  resorting  to 
another  instruction  for  each  term.  An  instruction  is  a 
line  written  on  a  coding  sheet  or  punched  on  a  card.  If 
the  automatic  addition  feature  is  not  wanted,  the  result 
must  be  put  into  a  blank  column. 

From  the  foregoing  it  will  be  seen  that  for  each 
mathematical  operation  there  are  generally  two  types  of 
sentences^  one,  where  the  operation  is  performed  and  its 
result  is  stored  by  erasing  what  was  previously  in  the 
column,  and  the  other  where  the  result  is  multiplied  by 
some  value,  after  which  it  is  stored  by  adding  to  the 
values  previously  stored  in  the  designated  column.  The 
two  types  of  sentences  apply  only  to  the  arithmetic 
operations  and  the  elementary  functions  listed  on  page 
20  and  21. 
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All  of  this  is  achieved  simply  by  having  the 
program  distinguish  how  many  parameters  are  contained  on 
the  card  and  whether  they  carry  a  decimal  point  or  not* 
Thus  the  crucial  information  on  any  OMNITAB  instruction 
is  a  legitimate  vocabulary  word,  and  a  series  of  numbers 
appropriate  to  the  operation  involved* 

A  current  list  of  commands  is  part  of  the  machine 
program.  The  use  of  the  instruction  COMMANDS  will  cause 
them  to  be  printed  out* 

3* 1*  Input  Instructions 


1*  OMNITAB 

a*  must  be  the  first  card  following  the  system 
control  cards* 

b*  clears  out  the  working  storage  and  initializes  the 
program  parameters,  hence  is  required  between 
problems. 

c*  this  card  should  carry  a  date  containing  at  least 
two  numbers. 

2-  ° READ  COL  ++,++,++,++,  - 

a.  cards  that  follow  are  treated  as  data  and  read 
into  columns00  specified  by  the  READ  instruction, 
b-  card  columns  1  through  72  are  read- 
c*  READ  is  terminated  when  any  word  in  the  OMNITAB 
vocabulary  is  encountered*0 

d.  if  later  data  fields  are  missing  on  any  data  card, 
the  data  from  the  preceding  card  are  used, 
e*  a  maximum  of  101  data  cards  is  stored  and 

additional  data  cards  are  ignored,  except  for 

triggering  a  diagnostic. 

f.  if  a  decimal  point  or  E  is  not  contained  in  the 

number  the  decimal  is  placed  at  the  extreme  right  of 

the  number.  Any  number  larger  than  131071  must 
contain  a  decimal  point  or  an  E. 

3-  “GENERATE  ARGUMENTS  *♦(**)**(**)**  IN  COL  ++ 

a.  generates  a  column  of  numbers  in  indicated 
increments. 

b.  a  maximum  of  101  numbers  is  generated  in  the 

column. 


The  program  automatically  counts  the  number  of  cards 
after  the  READ  or  the  length  of  the  column  GENERATED  or 
SET,  and  sets  NRMAX  equal  to  this  length  if  NRMAX  was 
previously  smaller.  Except  for  matrix  and  array 
operations,  NRMAX  controls  how  far  down  the  column 
subsequent  operations  are  carried  out. 

°°  Unless  modified  by  the  word  "card11 ,  "column"  refers 
to  a  column  in  the  work  sheet  (101x46). 
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c.  the  parentheses  enclose  the  increments  in  accord 
with  common  notation. 

4.  °  SET  IN  COL  ++, THE  ARG  ON  THE  FOLLOWING  CARDS 
a*  reads  data  cards  and  stores  columnwise. 

b.  set  is  terminated  when  an  executable  statement  is 
encountered. 

c.  if  a  decimal  point  or  E  is  not  contained  in  the 
number  the  decimal  is  placed  at  the  extreme  right  of 
the  number.  (See  2f  above.) 

d.  a  maximum  of  101  numbers  will  be  read;  each  card 
may  contain  as  many  as  25  numbers.  • 

5*  FREAD  ,,  CARDS  INTO  COLS  ++,  ++,  ++,  . 

a*  required  only  for  data  punched  without  spaces 
separating  the  numbers  or  when  it  is  desired  to  store 
non-numeric  information  (words  or  labels)  in  columns* 
b«  this  instruction  must  be  preceded  by  a  FORMAT 
statement  and  must  contain  the  count  of  the  number  of 
cards  to  follow* 

c*  its  use  is  to  be  avoided  except  for  fancy  format 
control. 

d.  the  data  following  this  instruction  are  not 
printed  out  at  the  end  of  the  calculation  as  are  the 
data  following  a  READ  or  SET  instruction. 


The  program  automatically  counts  the  number  of  cards 
after  the  READ  or  the  length  of  the  column  GENERATED  or 
SET,  and  sets  NRMAX  equal  to  this  length  if  NRMAX  was 
previously  smaller.  Except  for  matrix  and  array 
operations,  NRMAX  controls  how  far  down  the  column 
subsequent  operations  are  carried  out. 
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3*  2*  Ordinary  Output  Instructions 


1*  PRINT  COL  ++,  ++,  ++,  ....  (8  col  limit)* 

a*  NRMAX  values  in  the  specified  columns  are  printed 
fixed  or  floating  point  depending  on  2  or  3  below* 
b*  If  the  PRINT  instruction  is  not  preceded  by  the 
FIXED  or  FLOATING  instructions,  the  output  is  printed 
in  floating  format  with  one  digit  to  the  left  and  six 
digits  to  the  right  of  the  decimal  point* 
c*  titles  and  column  headings  are  also  printed* 
d*  when  no  values  are  entered  in  a  column  or  a 
portion  of  it,  zeros  will  be  printed* 


2*  FIXED  WITH  ,,  DECIMALS 

a*  provides  fixed  field  format  with  the  specified 
decimal  places  (for  example  1*7983,  275*01,  etc*)* 
b*  maximum  decimal  field  is  7* 

3*  FLOATING  WITH  ,,  DECIMALS 

a*  provides  floating  field  format  with  the  specified 
number  of  decimal  places  (e*g*  -  1*  7983E01,  2.7501E02)  • 
b*  maximum  decimal  field  is  7* 


4*  PUNCH  COL  ++,  ++,  ++,  ++,  (4  col  limit) 

a*  provides  NRMAX  cards  of  output  in  accord  with  the 
built-in  FORMAT. 

b*  punching  is  limited  to  60  characters  including 
spaces. 


5*  PLOT  COLS  ++,  ++,  ++,  AGAINST  COL  ++ 

a*  plots  of  one  to  five  functions  are  provided* 


b*  scale  ranges  are  chosen 
coordinates. 

c*  The  assignment  of  plots 
number  of  columns  plotted* 


1st 

2nd 

1 

COLUMN 

. 

2 

COLUMNS 

* 

# 

3 

COLUMNS 

+ 

* 

4 

COLUMNS 

9 

+ 

5 

COLUMNS 

0 

> 

by  the  machine 

from 

the 

symbols,  depends 

upon 

the 

Thus* 

3rd 

4th 

5th 

• 

* 

• 

+ 

* 

• 

d*  Where  symbols  would  coincide,  priority  is  given  in 
the  order  *  *  +  ,  0  * 

PLOT  COLS  ++,  ++,  AGAINST  ++,  ABSC  FROM  **  TO  **  ORD 

FROM  **  TO  ** 

a*  same  as  above  except  that  ranges  for  the  abscissa 
and  ordinate  are  provided  by  the  user* 
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6.  NOSUMMARY 

a*  suppresses  the  automatic  summary  of  the  printed 
columns* 

b*  can  be  counteracted  by  the  instruction  SUMMARIZE. 

7.  SUMMARIZE 

a*  provides  a  one  page  summarization  of  the  results 
with  the  execution  of  a  PRINT  statement*  (See  fig. 
4-8) 

b*  required  only  to  counteract  the  NOSUMMARY 
instruction. 

8*  TITLE 1  (  66  characters  maximum). 

TITLE 2  (66  characters  maximum). 

a*  information  in  card  col  7-72  is  printed,  left 
adjusted,  as  the  first  or  second  line  or  both  on  all 
pages  obtained  via  a  PRINT  or  FPRINT  instruction, 
b.  the  words  TITLE1  etc*  must  start  in  col  1  of  the 
card. 

c*  card  column  7  must  not  contain  either  E,  .  ,  +,  — , 

„  * 
or 

d*  titles  can  be  updated  at  any  time  with  a  new  title 
card. 

e*  they  may  appear  anywhere  in  the  program  prior  to 
the  print  instruction  to  which  they  apply, 
f.  the  title  starts  on  the  second  type  bar  position 
and  extends  to  the  67th  type  bar  on  the  printer. 

9.  TITLE 3  (53  characters  maximum) 

TITLE 4  (53  characters  maximum) 

a*  provide  a  continuation  across  the  page  of  TITLE1 
and  TITLE2,  respectively. 

b.  comments  b,  c,  d  and  e  of  item  8  apply  here  also* 

c.  titles  3  and  4  start  on  type  bar  position  68  and 
extend  through  the  120th. 

10*  HEAD  COL  ++/  ( 12  characters  allowed  after  /) 

a*  provides  a  heading  for  the  designated  column  in 
place  of  the  standard  heading. 

b.  heading  will  be  printed  only  if  the  PRINT 
instruction  is  used. 

c.  can  be  updated  by  another  HEAD  instruction. 

11.  NOTE--  (as  appropriate)0 

a*  information  punched  into  card  columns  7—72  of  this 
card  is  printed  as  a  single  line  at  the  time  it  is 
read. 

b.  any  number  of  NOTE  cards  may  be  used  to  provide 
text  or  documentation  information  either  preceding, 
following,  or  interspersed  between  computation 
results  obtained  via  one  of  the  PRINT  instructions. 


—  denotes  a  blank. 
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12.  FOOTNOTE — —  ° 

a*  provides  1  line  of  information  as  a  footnote  for 
all  subsequent  PRINT  instructions  unless  updated  or 
deleted. 

b.  the  word  FOOTNOTE  followed  by  blanks  deletes  the 
FOOTNOTE  instruction. 

13.  ABRIDGE  ROW  ,,  COL  ++,  ++,  ++,  ++,  (8  col  limit) 
a.  prints  the  designated  row. 

b«  may  be  repeated  any  number  of  times* 

c*  prints  according  to  the  built-in  FORMAT  statement. 

14.  STOP 

a.  required  at  the  end  of  a  series  of  OMNITAB  runs* 

b.  writes  the  latest  instruction  set  on  the  output 
tape  and  returns  control  to  IBSYS. 


3*  3*  Special  Output  Instructions 


1.  FORMAT  (  as  appropriate  °°  ) 

a*  provides  tailor-made  format  according  to  FORTRAN 
rules00. 

b.  no  limit  to  the  number  of  columns  except  that  120 
characters  cannot  be  exceeded  on  any  printed  line  or 
72  characters  on  any  card. 

c.  use  FPRINT  only  to  obtain  specified  format. 

d*  for  further  instructions?  see  a  FORTRAN  Manual. 

2*  FPRINT  COL  ++,  ++?  ++,  ++,  ....  (as  allowed  by  format) 

a.  same  as  PRINT  except  that  no  headings  are  printed. 

b.  can  be  used  only  when  a  FORMAT  instruction 
preceded  it* 

3*  FPUNCH  COLS  ++>  ++>  ++>  ....  (as  allowed  by  format) 

a.  must  be  used  to  obtain  results  in  accord  with  a 
specific  FORMAT. 

b.  punching  is  limited  to  72  characters  including 
spaces  on  each  card. 

4.  FABRIDGE  ROW  ,,  COL  ++,++,++  etc. 

a.  prints  the  designated  row  in  accordance  with 
instructions  on  the  current  FORMAT  card. 

b.  may  be  repeated  any  number  of  times* 


—  denotes  a  blank. 

°°The  novice  need  not  be  concerned  with  formating  in 
order  to  use  OMNITAB. 
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5-  TPRINT  COL  ++,++,++  -  (as  allowed  by  format) 

a*  performs  the  same  function  as  FPRINT  but  does  not 
call  for  a  new  page. 

6.  NEWPAGE 

a.  ensures  printing  on  a  new  page. 

b.  used  largely  with  ABRIDGE  or  TPRINT  instruction. 

7 .  SPACE  , , 

a*  provides  , ,  blank  lines  where  desired  in  the 
output . 

b.  used  largely  with  NOTE,  ABRIDGE  and  TPRINT 

instructions. 

8-  PAGE  NUMBER  AT  LOCATION  ,, 

a.  provides  for  the  printing  of  a  page  number  at  the 
top  of  the  page  in  the  designated  type— bar  location 
as  well  as  extreme  left-hand  side.  The  OMNITAB  card 
usually  printed  is  omitted. 

b*  pages  are  numbered  starting  with  the  current  page 
number • 

9.  PAGE  STARTING  WITH  ,,  AT  LOCATION  ,, 

a-  performs  the  same  operation  as  the  above 

instruction  except  that  paging  starts  with  the 
designated  number. 

10.  NOLIST 

a.  prevents  listing  of  the  input  commands  and  data 
after  the  job  is  completed. 

b.  should  be  placed  immediately  before  the  STOP  card 
or  the  next  OMNITAB  card* 

11.  MKSA 

a*  use  of  this  instruction  supplies  fundamental 
constants  in  the  MKSA  system  when  called  for.  (See 
chapter  12) 

b.  if  the  summary  has  not  previously  been  suppressed, 
the  list  of  fundamental  constants  is  printed  out. 
(See  section  12. 2) 

12.  CGS 

a.  use  of  this  instruction  supplies  fundamental 
constants  in  the  CGS  system  when  called  for. 

b.  if  the  summary  has  not  previously  been  suppressed, 
the  list  of  fundamental  constants  is  printed  out* 
(See  section  12-2). 

13.  COMMANDS 

a*  causes  the  OMNITAB  vocabulary  and  sentence 
structure  to  be  listed  as  contained  in  the  current 
version  of  the  program. 

b.  this  material  is  kept  current  with  the  program 
additions. 
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14.  MANUAL 

a.  provides  for  a  listing  of  an  abridged  version  of 
section  3  of  this  Handbook. 

b.  this  material  is  kept  current  with  revisions  or 
additions  to  the  program. 

15.  WATSNU 

a*  lists  all  changes  and  additions  since  this 
edition  of  this  Handbook- 

16.  SPLOT  ++,++,++,  ETC  AGAINST  ++  or 

SPLOT  ++,++,++,  ETC  AGAINST  ++,  ABSC  FROM  **  TO  **, 

ORDINATE  FROM  **  TO  ** 

a.  provides  a  plot  with  higher  resolution  than  does 
PLOT. 

b-  only  one  symbol  is  used  but  as  many  as  20  curves 
may  be  drawn  on  the  same  plot. 

c.  see  section  4*  5  for  further  discussion  of  this 
instruction. 


3-4.  Function  Generation 


1.  LOGE,  LOGTEN  (Base  e  and  10  respectively) 

a.  if  x<  0,  the  program  prints  out  an  appropriate 
error  message  and  takes  the  log  of  the  absolute  valu* 
of 

2-  DIVIDE 

a*  on  division  by  zero,  a  zero  is  returned,  and  the 
calculation  proceeds. 

3.  RAISE  b 

a.  provides  for  exponentiations  of  the  form  a  where 
either  or  both  a  and  b  can  refer  to  column  numbers  or 
particular  constants. 

b.  when  a  is  negative  and  b  is  nonintegral,  the 
program  truncates  b  to  the  next  lowest  integer, 
prints  out  a  diagnostic  statement,  and  proceeds  with 
the  calculations.  The  results  are  thus  obviously  not 
correct  for  such  cases- 

4.  EXP 

a.  e x  will  be  out  of  range  for  x  ^  87*3  and  the 

program  will  stop  with  a  suitable  error  statement, 
b*  if  xi  ~  8 7.3,  underflow  will  occur,  a  zero  will 
be  substituted,  and  the  calculation  will  continue 
without  any  notification. 
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5 •  SIN?  COS)  etc* 

a*  SIN)  COS)  SIND)  COSD  compute  the  trigonometric 
functions  for  the  angle  in  radians  or  degrees 
respectively. 

b»  for  arguments  above  900  radians  the  accuracy 
diminishes  by  2  or  more  places ,  resulting  in  a 
diagnostic  but  no  interruption  of  the  calculations, 
c.  if  x  is  larger  than  2  n  •  2 degrees ,  the  program 
stops  with  an  appropriate  error  statement* 

6.  ARCSIN,  ARCCOS,  -  ASIND,  ACOSD  - 

a*  the  inverse  functions  provide  the  principal  value 
(0  to  +  rr  /  2  for  arc  sin  and  arc  cos  and  ~  rr  /  2  to  +n/  2 
for  arc  tan  and  arc  cot)  . 

b.  the  D  denotes  an  angle  in  degrees. 

c.  x  may  be  as  large  as  212B  for  the  arctan. 

7*  SINH)  COSH)  etc.  denote  hyperbolic  functions  while 
ASINH)  ACOSH)  etc*  >  denote  their  inverses. 


3« 5.  Manipulative  Instructions 


1.  EXCHANGE  COL  ++,  WITH  ++,  ++  WITH  ++,  etc 

a*  interchanges  NRMAX  values  of  the  designated 
columns  pair  by  pair. 

2.  ERASE  COLS  ++,  ++,  ++,  etc 

a.  replaces  NRMAX  values  of  the  designated  columns  by 
zeros. 

b*  erases  the  entire  work  sheet  when  no  columns  are 
specified)  and  sets  NRMAX  to  zero. 

c«  unlike  the  word  OMNITAB)  it  does  not  initialize 

the  program  parameters  or  destroy  the  stored  instruct¬ 
ions- 

3*  DELETE  ROWS  >)  ))  ))  ))  etc 

a*  replaces  the  designated  rows  by  zeros  across  the 
whole  array. 

4.  TRANSPOSE  ROW  ,,  INTO  COL  ++,  ,,  INTO  ++,  ,,  INTO  ++, 
a*  stores  the  values  in  the  designated  rows  into  the 
designated  columns* 

b.  the  transposed  vector  starts  in  the  first  row  of 
the  column. 

c.  up  to  five  rows  can  be  transposed  in  one 
instruction. 

d.  the  new  column  is  only  NRMAX  long. 


etc 
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5-  FLIP  COL  ++  INTO  COL  ++,  ++  INTO  ++,  ++  INTO  ++ 

a-  turns  a  column  of  NRMAX  elements  end  for  end,  up 
to  NRMAX- 

b-  without  parameters  this  flips  the  entire  array  up 
to  NRMAX- 

6-  PROMOTE  ARRAY  ,,  ROWS 

a-  discards  the  designated  number  of  lines  from  the 
top  of  each  of  the  46  columns  and  moves  the  array  up- 

b-  leaves  zeros  in  the  vacated  elements- 
c-  leaves  NRMAX  unchanged- 

7-  DEMOTE  ARRAY  ,,  ROWS 

a-  depresses  the  entire  array  the  designated  number 
of  rows,  and  increases  NRMAX- 

b-  provides  duplication  of  the  first  ,,  rows- 

8-  PROMOTE  BY  ,,  ROWS,  COL  ++  INTO  COL  ++, 

COL  ++  INTO  ++,  etc 

a-  promotes  columns  selectively  and  stores  as 
desired • 

b-  leaves  intact  the  original  column,  the  remainder 
of  the  storage  column,  and  NRMAX- 

9-  DEMOTE  BY  ,,  ROWS,  COL  ++  INTO  COL  ++, 

COL  ++  INTO  ++,  etc 

a-  demotes  NRMAX  values  from  each  of  the  designated 
columns  by  ,,  rows  and  stores  as  indicated  leaving 
intact  the  original  column  and  the  top  , ,  rows  of  the 
storage  column- 

b-  NRMAX  is  increased  by  ,,  but  only  after  all  of  the 
columns  have  been  demoted- 

10-  RESET  NRMAX  TO  ,,  ROWS 

a-  as  NRMAX  controls  how  far  down  the  column 
subsequent  instructions  operate, this  command  provides 
a  simple  way  of  altering  this  important  program 
parameter • 

RESET  NRMAX  TO  THE  VALUE  IN  ROW  ,,  OF  COL  ++ 

b-  enables  NRMAX  to  be  set  to  a  computed  value  n- 
c-  if  0  •  ^<n  £101-,  NRMAX  is  set  to  the  integer  equal 
to  or  less  than  n- 

d-  if  n  is  greater  than  101-  or  negative,  the  program 
stops  with  the  appropriate  error  statement- 
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11.  DEFINE  ROW  ,,  COL  ++,  AS  ROW  ,,  COL  ++ 

a«  moves  one  element  of  the  stored  array  into  any 
location  in  the  array* 

b*  the  original  element  is  not  destroyed. 

12.  DEFINE  ROW  ,,  COL  ++  AS  COL  ++ 

a.  vectorizes  the  designated  element  into  the 
designated  column  so  as  to  make  available  NRMAX 
identical  values* 

b.  the  original  element  is  not  destroyed. 

13.  DEFINE  **  AS  ROW  ,,  COL  ++ 

a.  replaces  the  designated  element  by  the  designated 
number . 

14-  SHORTEN  COL  ++  FOR  COL  ++  =**, STORE  IN  COL  ++  AND  ++ 
a*  shortens  the  designated  column  at  and  including  a 
particular  value  in  that  column  or  another  column  and 
stores  both  shortened  columns  respectively  as 
indicated.  , 

b-  if  the  value  is  not  found  exactly*  shortens  at  the 
next  highest  number  if  the  function  increases  or  the 
next  lower  number  if  the  values  decrease  (the 
function  is  assumed  monotonic) • 

c*  resets  NRMAX  to  agree  with  the  shortened  column, 
d*  if  the  value  is  not  found?  a  diagnostic  is  printed 
and  the  columns  are  transferred  to  the  storage 
location  in  accordance  with  NRMAX. 

15-  CLOSE  UP  ROWS  HAVING  **  IN  COLS  ++,  ++,  ++ . 

a*  deletes  in  each  column  those  rows  containing  the 
indicated  value  and  closes  up  the  resultant  spaces* 
b*  puts  zeros  in  the  vacated  rows  at  the  bottom  of 
each  of  the  columns  up  to  NRMAX. 

16-  SEPARATE  FROM  COL  ++  EVERY  ,,  ROW  START  WITH 

ROW  , ,  STORE  IN  COL  ++ 

a*  extracts  every  nth  value  from  the  designated 
column  starting  at  the  mth  row?  and  stores  these 
results  consecutively  in  the  indicated  column 
starting  in  row  one. 

b.  NRMAX  is  left  unchanged  as  is  the  original  column. 

17-  INSERT  IN  COL  ++  FROM  COL  ++  AT  EVERY  ,,  ROW 

STARTING  AS  , ,  ROW,  STORE  IN  COL  ++ 
a*  performs  the  reverse  of  the  SEPARATE  instruction, 
b.  inserts  current  NRMAX  or  fewer  values  from  the  top 
of  the  designated  column  into  the  specified  locations 
in  the  first  named  column  starting  at  the  designated 
row?  and  stores  the  composite  column  as  indicated, 
c*  NRMAX  is  increased  by  the  number  of  inserted  rows 
up  to  a  maximum  of  101.  (See  appendix  I) 
d*  if  the  list  to  be  inserted  is  shorter  than  NRMAX 
and  is  followed  by  zeros?  these  values  can  be  deleted 
by  using  the  CLOSE  UP  instruction. 
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3«6*  Arithmetic  Operations 


1.  CHANGE  SIGN  OF  COLS  ++,  ++,  ++,  - 

a*  changes  the  signs  of  NRMAX  values  in  the 
designated  columns* 

2*  ROWSUM  COLS  ++,  ++,  ++,  ...  AND  STORE  IN  COL  ++ 

a.  performs  the  designated  additions  for  each  row  of 
the  array?  and  stores  the  sum  in  the  corresponding 
row  of  the  indicated  column. 

ROWSUM  ARRAY,  STORE  IN  COL  ++ 

a*  provides  a  column  of  NRMAX  values  each  row  of 

which  is  the  sum  of  the  corresponding  row  of  the  46 
column  array. 

3*  SUM  COL  ++,  STORE  IN  COL  ++ 

a*  sums  the  first  mentioned  column  and  stores  this 
sum  NRMAX  times  in  the  indicated  column. 

4.  SUM  COL  ++,  ROWS  , ,  TO  , ,  STORE  IN  COL  ++ 

a*  sums  the  indicated  column  for  the  consecutive 

inclusive  rows  indicated,  and  stores  the  result 
NRMAX  times  in  the  indicated  column. 

5.  SUM  COL  ++,  ROWS  ,,  ,,  ,,  ...  STORE  IN  COL  ++ 

a*  sums  the  designated  column  for  the  discrete  rows 

indicated  and  vectorizes  it  as  directed.0 
b*  a  minimum  of  3  discrete  rows  must  be  specified, 
except  that  a  blank  row  can  be  specified  to  achieve 
the  addition  of  only  two  rows* 

6.  AVERAGE  COL  ++,  STORE  IN  COL  ++ 

a.  the  arithmetic  mean  is  computed  and  vectorized  as 
indicated. 

b.  assumes  NRMAX  to  be  the  length  of  the  columr 
unless  three  consecutive  zeros  are  encountered  before 
NRMAX  is  reached,  in  which  case  the  actual  lengtl 
above  the  three  zeros  is  used. 

7.  RMS  OF  COL  ++,  STORE  IN  COL  ++ 

a*  computes  the  root  mean  square  of  NRMAX  values  ir 
the  designated  column  and  vectorizes  it  in  the 
indicated  column. 


vectorize  here  means  to  store 
times. 


the  results  NRMA2 
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8-  MAXIMUM  OF  COL  ++,  STORE  IN  COL  ++ 

a.  vectorizes  into  the.  designated  column  the  maximum 
value  of  the  first  named  column. 

b.  the  function  need  not  be  monotonic • 

9.  MAXIMUM  OF  COL  ++  STORE  IN  COL  ++,  STORE  CORRESP 

VALUE  OF  ++  IN  ++ 

a •  vectorizes  the  maximum  value  in  the  designated 
column  and  the  corresponding  value  (the  value  in  the 
same  row)  in  another  column  and  stores  these  results 
as  directed. 

b.  the  function  need  not  be  monotonic. 

10.  MINIMUM  OF  COL  ++,  STORE  IN  COL  ++ 

a.  vectorizes  into  the  designated  column  the  minimum 
value  in  the  first  named  column. 

b*  the  function  need  not  be  monotonic. 

11.  MINIMUM  OF  COL  ++,  STORE  IN  COL  ++,  STORE  CORRESP 

VALUE  OF  ++  IN  ++ 

a*  vectorizes  the  minimum  value  of  the  designated 
column  and  the  corresponding  value  (the  value  in  the 
same  row)  in  another  column  and  stores  these  results 
as  directed. 

b.  the  function  need  not  be  monotonic. 

12.  DIAGONALIZE  $$  INTO  COL  ++  THRU  ++ 


a*  stores 

the  constant 

or 

designated 

column 

as 

the 

principal 

diagonal 

of 

a  matrix 

def ined 

by 

the 

designated 

consecutive 

columns. 

b*  the  off 

—diagonal  terms 

are  unaffected?  as 

is 

the 

value  of  NRMAX. 

13.  SORT  COL  ++  CARRY  ALONG  ++,  ++,  ++,  ... 

a.  sorts  the  numbers  in  the  designated  column  in 
increasing  order  and  carries  along  the  element  in  the 
corresponding  row  of  the  designated  columns. 

b.  results  remain  in  the  original  columns. 

14.  ORDER  COL  ++,  ++,  ++,  ... 

a*  arranges  the  values  in  each  column  independently 
in  increasing  order. 

15.  PAR SUM  COL  ++,  STORE  IN  COL  ++ 

a*  provides  NRMAX  partial 

l<n<  NRMAX  and  stores  these 
column. 

16.  PARPRODUCT  COL  ++,  STORE  IN  COL  ++ 

a.  provides  NRMAX  partial  products  tt  X,  and  stores 
these  in  the  designated  column.  i 


n 

sums  s  =  E  X . ) 

n  1=i  x 

in  the  designated 
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b.  if  the  numbers  in  the  column  are  consecutive 
integers  (starting  with  1  or  2) ,the  nth  row  will 
contain  n  factorial*  ^ 

c*  if  the  product  exceeds  lCr  ,  zeros  are  returned 
for  the  rest  of  the  column* 


17*  LENGTH  OF  ARRAY  TO  BE  STORED  IN  COL  ++ 

a*  enter  the  current  value  of  NRMAX  into  the 
designated  column. 

18*  COUNT  LENGTH  OF  COL  ++,  STORE  IN  COL  ++ 

a*  counts  up  to  NRMAX  or  up  to,  but  not  including, 
the  first  of  3  consecutive  zeros* 
b*  the  count  is  vectorized  as  indicated. 

19.  SINTEGRAL  OF  COL  ++,  X  IN  COL  ++,  STORE  IN  ++ 
a*  computes  the  integral 


f(x)  dx 


n 


I 

i=l 


h  aiyi 


for  NRMAX  values  of  the  function  y^  computed  at 
uniform  values  of  the  variable. 

b*  the  integration  is  equivalent  to  a  four  point 
Lagrangian  integration. 

c*  if  the  arguments  are  in  column  one,  the  result 
should  agree  with  the  integral  given  in  the  OMNITAB 
Summary • 

d«  the  interval,  h,  is  determined  from  the  designated 
argument  column. 

e.  the  coefficients  aj[  are  unity  except  for  the  ends 
of  the  column  where  they  are  0*348611111,  1*24583333, 
0*  879166667,  and  1*  06638889  respectively  for  a*  ,  a2  > 

a3 ,  a 4  and  for  a  ,  a  _  ,  a  n  ,  and  a  0  • 

6  *  n  n~l  n~2  n-3 

f.  the  number  of  values  must  obviously  be  greater 
than  8* 


20*  Complex  Arithmetic 


CADD,  REAL  IN  ++,  TO  REAL  IN  ++, 
CSUB,  REAL  IN  ++  FROM  REAL  IN  ++, 
CMULT,  REAL  IN  ++  BY  REAL  IN  ++, 
CDIV ,  REAL  IN  ++  BY  REAL  IN  ++, 


STORE  REAL  IN  ++ 
STORE  REAL  IN  ++ 
STORE  REAL  IN  ++ 
STORE  REAL  IN  ++ 


a*  provides  for  complex  arithmetic  of  numbers  whose 
real  parts  are  stored  in  the  indicated  columns* 
b.  the  imaginary  part  of  each  of  the  three  complex 
numbers  is  assumed  to  be  in  the  next  higher  column, 
c*  CMULT  and  CDIV  cannot  be  stored  over  the  original 


values. 
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3*7*  Special  Functions 


1.  TSUB  ,  ,  OF  COL  ++ 

2.  USUB  ,  ,  OF  COL  ++ 

3-  PSUB  ,,  OF  COL  ++ 

4.  HSUB  ,,  OF  COL  ++ 

5*  LSUB  ,,  OF  COL  ++ 

a*  These  commands  represent  respectively  the 
following  polynomials^ with  n=  1?  2?  3?  .  40i 

the  Chebyshev  polynomials?0 


Tn(x)  =  cos  (n  cos  1x)  for  — 1<  x<+l* 

Un(x)  =  ^Tn+1  (x)^  /(n  + 


the  Legendre  polynomials? 


,n 


Vx>  •  ^r-7  d~n  tx2  " 


the  Hermite  polynomials? 

£ 

dx 


H„W  -  <-D"  ex2  fer  (.^  ) 


the  Laguerre  polynomials? 


l„(x)  -  f  j j<  2  yn  ) 

n*  i  x 


dt 


°  Anonymous*  Tables  of  Chebyshev  Polynomials  Sn(x)  and 
Cn(x) ?  National  Bureau  of  Standards?  Applied  Mathematics 
Series  9  U*  S.  Government  Printing  Office?  Washington 
25?  D.  C.  (1952). 

°°Kopal?  Z. ?  Numerical  Analysis?  p.  368?  John  Wiley  & 
Sons?  New  York  (1955). 

ooo 

Kopal?  Z. ?  Numerical  Analysis?  p«  371?  John  Wiley  & 
Sons?  New  York  (1955). 

^^Abramowitz ?  M.  ?  and  Stegun?  I.  A.  ?  Handbook  of 
Mathematical  Functions?  National  Bureau  of  Standards 
Applied  Mathematics  Series  55?  Superintendent  of 
Documents?  U.  S.  Government  Printing  Office?  Washington? 
D.  C.  1964. 
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b*  These  polynomials  are  computed  from  the  initial 
values  and  the  recursion  relations  given  in  table  A. 
The  program  computes  consecutively  the  polynomials 
from  1,  2}  3>  4**«*n  and  stores  the  values  of  F^x) 
in  column  46>  F2(x)  in  column  45>  etc* >  until  .  ... 
F  (x)  which  is  stored  in  column  (  47-n) •  (See  table  B) 


TABLE  A.  Initial  Values  and  Recursion  Formulas  for 


Certain 

Special  Functions 

Symbol 

n  - 

0  n  = 

1  n  -  2 

n  =  3 

1 

X 

2x2-l 

4x3-3x 

“»<*> 

1 

2x 

4x2—  1 

X 

tH 

l 

CO 

X 

00 

P  (x) 
nv  ' 

1 

X 

32  1 

2*  2 

5  3  3 

H  (x) 
n 

1 

2x 

4x2— 2 

8x3— 12x 

L  (x) 
nx 

-x+1 

x2~ 4x+2 

- x3+9x2—18x+6 

1 

2 

6 

Recursion  Formula 


Wx) 

=  2xTn(x) 

"  W 

x) 

Un+1U) 

=  2xUq(x) 

"  Un-1< 

x) 

Pn+l(x) 

=  xPn(x) 

+  — S—  r 

n+l  L 

xPn(x>  "  Pn— l(x 

Wx> 

=  2xBn(x) 

-  2nH 

n“ 

^(x) 

Ln+i(x)  =  [( l+2n-x)Ln(x)  -  nLn_1(x) J/(n+l) 
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6.  STRUVE  SUB  0  OF  COL  ++,  STORE  IN  COL  ++ 

STRUVE  SUB  1  OF  COL  ++,  STORE  IN  COL  ++ 
a«  computes  the  Struve  functions  S0(x)  and  St(x)« 


def ined 

as  follows0; 

tt/2 

S0(x) 

_  2_ 
TT 

J  sin(x  sin0)d0 

(5 

tt/2 

Sj  (  x) 

_  2_ 

TT 

—  —  J cos(x  sin0)  sin0d0 

0 

7.  SININT  OF  $$,  STORE  IN  COL  ++ 

a*  computes  the  sine  integral. 

x 

s<»)  -f  slpdt 

8.  COSINT  OF  STORE  IN  COL  ++ 

a*  computes  the  cosine  integral. 


9. 


C(x) 


EINT  OF  STORE  IN  COL 


a.  computes  the  exponential 

00 


E(x) 


— u 


u 


du 


++ 

integral. 


10.  COMPLETE  ELLIPTIC  INTEGRAL  K  -  fc$,  STORE  FIRST 
KIND  IN  ++,  SECOND  IN  ++ 
a*  computes  the  complete  elliptic  integral  of 
first  and  second  kind  as  follows* 


the  first  kind: 

tt/2 

K(  k)  *  /%«  - 

O"-'  "Vl~k2sin2j6 


Dwight,  H.  B. ,  Tables  of  Integrals  and 
Mathematical  Data,  pp*  199,  203,  The  Macmillan  Co. 
York  ( 1961) . 


the 


Other 
,  New 
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and  the  second  kind 

r £ _ 

E(  k)  =  /  Vl-k2sin2)6 


dj6 


for  the  specified  values  of  k  -  sin© 


11.  INCOMPLETE  ELLIP  INTEG  K  =  $$,  PHI  =  $$,  FIRST 
KIND  IN  ++,  SECOND  IN  ++ 

a*  computes  the  incomplete  elliptic  integral  F(k,£$) 
of  the  first  kind  and  E(k,j6)  of  the  second  kind  where 


F(k,d) 


and 


E(k,rf) 


0 


d6 


Vl-k2sin2)6 


= ./ 


sin 


26  •  dj 6 


where  k  -  sin  O. 


12-  ERROR  OF  $$,  STORE  IN  COL  ++ 
a*  generates  the  error  function 

erf(x)  =  — 

V  TT 

13-  CERF  OF  $$,  STORE  IN  COL  ++ 
a-  gives  [l  -  erf(x)J. 


dt 


14.  GAMMA  OF  $$,  STORE  IN  COL  ++ 
a.  generates  the  gamma  function 

00 


r  { n)  = 


x11  ^e""3*  dx  (for  n>  0) 


For  n  a  positive  integer,  r  ( n)  -  ( n— l) 


/ 
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3* 8 •  Bessel  Functions0 

1.  BEJZERO  OF  $$,  STORE  IN  ++ 

BEJZERO  is  the  Bessel  function  of  the  first  kind  of 
zero  order  J0(x) 

2-  BEJONE  OF  $$  ,  STORE  IN  ++ 

BEJONE  is  the  Bessel  function  of  the  first  kind  of 
first  order  Ji(x) 

3.  BEYZERO  OF  $$  ,  STORE  IN  ++ 

BEYZERO  is  the  Bessel  function  of  the  second  kind  of 
zero  order  Y0(x) 

4.  BEYONE  OF  $$  ,  STORE  IN  ++ 

BEYONE  is  the  Bessel  function  of  the  second  kind  of 
first  order  Yt(x) 

5-  BE I ZERO  OF  ++,  STORE  IN  ++ 

BEIZERO  OF  ++,  OPTION  1,  STORE  IN  ++ 

BEIZERO  is  the  modified  Bessel  function  of  the  first 
kind  of  zero  order  I0(x)exp(— x) 

6.  BE I ONE  OF  ++  STORE  IN  ++ 

BEIONE  OF  ++,  OPTION  1  STORE  IN  ++ 

BEIONE  is  the  modified  Bessel  function  of  the  first 
kind  of  first  order  I1(x)exp(-x) 

7*  BEXZERO  OF  ++,  STORE  IN  ++ 

BEKZERO  OF  ++,  OPTION  1,  STORE  IN  ++ 

BEKZERO  is  the  modified  Bessel  function  of  the  second 
kind  of  zero  order  K0(x)exp(x) 


8.  BEKONE  OF  ++  STORE  IN  ++ 

BEKONE  OF  ++,  OPTION  1,  STORE  IN  ++ 

BEKONE  is  the  modified  Bessel  function  of  the  second 
kind  of  first  order  K1(x)exp(x) 


9. 


BERBEI  SUB  0  OF  ++,  STORE  IN  ++  AND  ++  (SCALED) 

BERBEI  SUB  1  OF  ++,  STORE  IN  ++  AND  ++  (SCALED) 

BERBEI  SUB  0  OF  ++,  OPTION  1,  STORE  IN  ++  AND  ++ 

( UNSCALED) 

BERBEI  SUB  1  OF  ++,  OPTION  1,  STORE  IN  ++  AND  ++ 
( UNSCALED) 


BERBEI  ,,  gives  the  real  part* 

""St/ 

imaginary  part  e  beinx 


e“x/V2  ker  x  ancj 
n 

of  the  Bessel— Kelvin 


function  of  argument  xi  Vi  of  the  first  kind* 


o 


Option  1  removes  the  exponential  scale  factors* 
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Jn(xi  Vi)  =  inln(x  VI)  =  bernx  +  i  beinx 


f  or  n 


,  -  0  or  1 


KERKEI  SUB  0  OF  ++,  STORE  IN  ++  AND  ++  (SCALED) 

KERKEI  SUB  1  OF  ++,  STORE  IN  ++  AND  ++  (SCALED) 

KERKEI  SUB  0  OF  ++,  OPTION  1,  STORE  IN  ++  AND  ++ 

( UNSCALED) 

KERKEI  SUB  1  OF  ++,  OPTION  1,  STORE  IN  ++  AND  ++ 

( UNSCALED) 

WVJt 

KERKEI  ,  ,  gives  the  real  part?  e  kernx,  and  the 

WV2 

imaginary  part,  e  keinx  ° *  "the  Bessel— Kelvin 

function  of  argument  xi  "Vi  of  the  second  kind 


.  — nT.  / 

1  Kn<x 

VI) 

-  ker  x  +  ikei  x 
n  n 

for 

n  = 

=  0 

or 

1. 

DBERBEI 

SUB 

0  OF 

OPTION 

1, 

STORE 

IN 

++ 

AND 

++ 

DBERBEI 

SUB 

1  OF 

++> 

OPTION 

1, 

STORE 

IN 

++ 

AND 

++ 

DKERKEI 

SUB 

0  OF 

OPTION 

1, 

STORE 

IN 

++ 

AND 

++ 

DKERKEI 

SUB 

1  OF 

++> 

OPTION 

1, 

STORE 

IN 

++ 

AND 

++ 

( UNSCALED) 


DBERBEI  , ,  and  DKERKEI  , ,  give 

e 

and 


bernx, 


-x/V  2  ,  . 1 

e  bei  x 

n 


-x/V£  .  i 

e  ker  x , 

n 


—x/V 2  ,  .  I 

e  kei  x 

n 


where  ber^x  -  ~^(berMx)  etc. 


n 


n 
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The  inclusion  of  the  option  number  in  the 
instructions  for  the  Bessel— Kelvin  functions  removes  the 

— x/  "^2" 

factor  e  thereby  bringing  the  results  in  accord  with 

the  functions  ber?  bei?  ker?  and  kei  as  tabulated  by 
Dwight°  and  Lowell°°« 


Dwight?  H.  B.  ?  Tables  of  Integrals  and  Other 
Mathematical  Data?  pp*  199?  203?  The  Macmillan  Co*  ?  New 
York  ( 1961) . 

Lowell?  H*  H. ?  Tables  of  the  Bessel— Kelvin  Functions 
ber?  bei?  ker?  kei  and  their  Derivatives  for  the 
Argument  Range  o( 0* 01) 107. 50?  National  Aeronautics  and 
Space  Administration  Technical  Report  R— 32  (NASA  TR 
R— 32) ?  Superintendent  of  Documents?  U* S.  Government 
Printing  Of ice?  Washington  25?  D.  C. 
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3*9*  Sample  Problems  in  the  Ordinary  Operation  Mode 


Problem  3-1 

Compute  the  Einstein  functions 

-G  =  —  ln(  1  -  e*"*) 

H  =  x  e~"*  /  (1  -  e"~ x) 

C-xe  /(1-e  ) 

S  =  -G  +  H 

for  x  =  1. 0l( • 01) 1. 5 
The  OMNITAB  instructions  are  as  follows: 


OMNITAB  PROBLEM  3  -  1 
TITLE1  EINSTEIN  FUNCTIONS 
GENERATE  1. 01(. 01)1. 5  IN  COL  1 
NEGEXP  OF  COL  1, STORE  IN  COL  2 
MULTIPLY  COL  2  BY  -1.  STORE  IN  3 
ADO  1.  TO  COL  3  STORE  IN  3 
LOGE  OF  COL  3»MULT  BY  -l.,A0D  INTO  4 
RAISE  COL  3  TO  -1..MULT  BY  COL  2*  ADD  5 
MULTIPLY  COL  5  BY  COL  It  STORE  IN  5 
ADD  COL  4  TO  COL  5  STORE  IN  COL  6 
DIVIDE  COL5  BY  COL2,MULT  BY  5, ADD  7 


HEAD  COL  1/  X 

HEAD  COL  4/  G 

HEAD  COL  5/  H 

HEAD  COL  6/  S 

HEAD  COL  7/  CSUBP 


FIXED  POINT  5  DECIMALS 
PRINT  1,4, 5,6, 7 
STOP 


See  opposite  page  for  results  and  chapter  9  for  a 
more  succinct  solution  to  this  problem. 
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PAGE  1  OMNITAB  PROBLEM  3  -  1 

EINSTEIN  FUNCTIONS 


X 

G 

H 

S 

CSUBP 

1. OIOOO 

0.45290 

0.57860 

1.03150 

0.91916 

1.02000 

0.44722 

0.57523 

1.02245 

0.91763 

1.03000 

0.44162 

0.57188 

1.01350 

0.91609 

1.04000 

0.43611 

0.56855 

1.00466 

0.91454 

1.05000 

0.43069 

0.56523 

0.99592 

0.91298 

1.06000 

0.42535 

0.56193 

0.98727 

0. 91140 

1.07000 

0.42008 

0.55864 

0.97872 

0.90981 

1.08000 

0.41490 

0.55536 

0.97026 

0.90822 

1.09000 

0.40980 

0.55210 

0.96190 

0.90661 

1.10000 

0.40477 

0.54886 

0.95363 

0. 90499 

1.11000 

0.39982 

0.54563 

0.94545 

0.90335 

1.12000 

0.39494 

0.54241 

0.93735 

0.90171 

1.13000 

0.39013 

0.53921 

0.92934 

0.90006 

1.14000 

0.38540 

0.53602 

0.92142 

0.89839 

1.15000 

0.38073 

0.53285 

0.91358 

0.89671 

1.16000 

0.37613 

0.52970 

0.90583 

0.89503 

1.17000 

0.37160 

0.52655 

0.89815 

0. 89333 

1.18000 

0.36713 

0.52343 

0.89055 

0.89162 

1.19000 

0.36272 

0.52031 

0.88304 

0.88990 

1.20000 

0.35838 

0.51722 

0. 87560 

0.88817 

1.21000 

0.35410 

0.51413 

0.86823 

0. 88643 

1.22000 

0.34988 

0.51106 

0.86095 

0. 88468 

1.23000 

0.34572 

0.50801 

0.85373 

0.88292 

1.24000 

0.34162 

0.50497 

0.84659 

0.88115 

1.25000 

0.33758 

0.50194 

0.83952 

0. 87937 

1.26000 

0.33359 

0.49893 

0.83252 

0. 87758 

1.27000 

0.32966 

0.49593 

0.82559 

0.87577 

1.28000 

0.32578 

0.49294 

0.81873 

0.87396 

1.29000 

0.32196 

0.48998 

0. 81193 

0. 87214 

1.30000 

0.31818 

0.48702 

0.80520 

0. 87031 

1.31000 

0.31446 

0.48408 

0. 79854 

0. 86847 

1.32000 

0.31079 

0.48115 

0.79195 

0. 86663 

1.33000 

0.30717 

0.47824 

0.78541 

0. 86477 

1.34000 

0.30360 

0.47534 

0.77894 

0. 86290 

1.35000 

0.30008 

0.47245 

0.77253 

0.86102 

1.36000 

0.29660 

0.46958 

0.76618 

0. 85914 

1.37000 

0.29317 

0.46672 

0.75990 

0. 85724 

1.38000 

0.28979 

0.46388 

0.75367 

0. 85534 

1.39000 

0.28645 

0.46105 

0.74750 

0.85343 

1.40000 

0.28315 

0.45824 

0.74139 

0. 85151 

1.41000 

0.27990 

0.45543 

0.73534 

0.84958 

1.42000 

0.27669 

0.45264 

0.72934 

0. 84764 

1.43000 

0.27353 

0.44987 

0.72340 

0. 84570 

1.44000 

0.27040 

0.44711 

0.71751 

0.84374 

1.45000 

0.26732 

0.44436 

0. 71168 

0.84178 

1.46000 

0.26427 

0.44163 

0.70590 

0. 83981 

1.47000 

0.26127 

0.43891 

0. 70017 

0.83783 

1.48000 

0.25830 

0.43620 

0.69450 

0.83584 

1.49000 

0.25537 

0.43351 

0.68888 

0. 83385 

1.50000 

0.25248 

0.43083 

0.68331 

0.83185 
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Problem  3  —  2 


Compute  the  ideal  gas  thermal  functions  for 
electron  from  the  equations 

-(F°-Ho)/rT  =  2.5  InT  +  1.5  lnMe  +  3*  665108 

(h°-h°0)/rt  =  2.5 
C°/r  =  2.5 

s°/r  =  -{f°-h°0)/rt  +  (h°-h°0)/rt 

where  M„  =  . 00054876 
e 

Tabulate  results  for  T  =  273*15,  298* 

1000*  (  100*  )  10,  000*  °K* 

The  OMNITAB  instructions  are  as  follows* 


OMNITAB  PROBLEM  3-2 

TITLEI  THERMAL  FUNCTIONS 

GENERATE  27 3 . 1 5 ( 25 . ) 298 . 15 {  70 1 . 85 ) 1000, ( 100. ) 10000.  I 

LOGE  COL  1  AND  STORE  IN  COL  2 

MULTIPLY  2.5  BY  COL  2  AND  STORE  IN  COL  2 

LOGE  .00054876  AND  STORE  IN  COL  3 

MULTIPLY  1.5  BY  COL  3  AND  STORE  IN  COL  3 

ADD  3.665108  TO  COL  3  AND  STORE  IN  COL  3 

ADD  COL  2  TO  COL  3  AND  STORE  IN  COL  3 


ADD 

2.5000 

TO 

COL 

4 

AND 

STORE 

IN 

COL 

4 

ADD 

2.5000 

TO 

COL 

6 

AND 

STORE 

IN 

COL 

6 

ADD 

COL3 

TO 

COL 

4 

AND 

STORE 

IN 

COL 

5 

MULTIPLY 

COL  4 

BY  COL 

1 

AND 

STORE  IN 

COL 

7 

HEAD  COL  1/  T  K 

HEAD  COL  3/-IF-H0)/RT 

HEAD  COL  4/  (H-H0)/RT 

HEAD  COL  5/  S/R 

HEAD  COL  6/  CP/R 

HEAD  COL  7/  (H-HOJ/R 

FORMAT  ( IF  10. 2, 4F 12.4,  IF  12.1) 
PRINT  1,3,4, 5, 6, 7 
F  PR  I  NT  1,3, 4, 5, 6, 7 
F  PUNCH  1,3,4, 5, 6, 7 
STOP 


the 


15, 


E- 
N  COL  1 
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Problem  3  —  3 


Compute  the  vapor  pressure  of  liquid  hydrogen 
fluoride  from  the  equations  of  Simons  and  of  Hildebrand 
given  below*  Tabulate  results  at  10°  intervals  from  0°C 
to  190° C  and  in  atmospheres  as  well  as  millimeters  of 
mercury. 


log  P  (nun  Hg)  =  7-37  -  1315-/T 
log  P  (nun  Hg)  =  7-  3739  -  1316- 79/t 

The  OMNITAB  instructions  are  as  follows • 


OMNITAB  PROBLEM  3-3 

TITLE1  VAPOR  PRESSURE  OF  HF 

GENERATE  ARG  273. 15 (  10. ) 463.  15  IN  COL  1 

DIVIDE  1315.  BY  COL  1  STORE  IN  COL  2 

SUBTRACT  COL  2  FROM  7.37  AND  STORE  IN  COL  3 

RAISE  10. TO  COL  3  STORE  IN  COL  4 

DIVIDE  COL  4  BY  760.  AND  STORE  IN  COL  5 

DIVIDE  1316.79  BY  COL  1  STORE  IN  COL  6 

SUBTRACT  COL  6  FROM  7.3739  AND  STORE  IN  COL  7 

RAISE  10.  TO  CCL  7  STORE  IN  COL  8 

DIVIDE  COL  8  BY  760.  AND  STORE  IN  COL  9 

SUBTRACT  273.15  FROM  COL  1  AND  STORE  IN  COL  10 

HEAD  COL  1/DEG  K 

HEAD  COL  4/SIMON  { MMHG } 

HEAD  COL  5/  SIMON  (ATM) 

HEAD  COL  8/ HILDB. { MMHG ) 

HEAD  COL  9/  HILDB. (ATM) 

HEAD  COL  10/  DEGREES  C 
PRINT  1,10,8,9 
PRINT  1,10,4,5 
PRINT  1,10,4,8,5,9 
STOP 
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Problem  3  ~  4 


Compute  the  current?  I?  from  the  relation 


I  =  e[r2  +  (2nfL  -  ^2 


for  E  =  1  volt  to  E  =  100  volts  in  steps  of  1 
where 

f  =  1000  cps  L  =  0- 03  henry 


R  -  150  ohms  C  =  4* 10  6  farad 


The  OMNITAB  instructions  are  as  follows^ 


CMMTAB  PROBLEM  3-4 
GENERATE  l.(l.)100.,l 

MULTIPLY  3.14159  BY  2.  MULT  BY  1000.  ADD  TO 

MULTIPLY  4.E-6  BY  COL  2  STORE  3 

DIVIDE  -1.  BY  3  STORE  4 

MULT  2  BY  .03  EY  1.  ACD  TO  4 

MULT  4  BY  4  STCRE  4 

MULT  150.  BY  150.  MULT  BY  1.  ADD  TO  4 

SORT  OF  4,4 

DIVIDE  1  BY  4  STORE  5 

HEAD  CCL  1/  E 

HEAD  CCL  5/  I 

PRINT  1,5 

STOP 


volt , 
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Problem  3—5 


Compute  a  table  of  reciprocal  temperatures  as 
follows* 


1000 

T  =  - 

T  +  0.  1  k 

for  T  =  100(1)200  and  k  =  0,  1,  2>  ••••  9  and  print 

results  in  two  pages?  five  columns  to  a  page* 


The  OMNITAB  instructions  are  as  follows • 


OMMTAB  PROBLEM  3-5 

TITLE1  RECIPROCAL  TABLE,  1000  * / T  -  T  =  100.0  -  200.0  BY  0.1 
GENERATE  100.  {  1.  )200.f 1 
DIVICE  1000.  1  2 
ACC  0.1  1  20 


CIV 

ICE 

1000. 

20 

3 

ACC 

0 

.1  20 

2C 

DIV 

ICE 

1000. 

20 

4 

ACC 

0 

.1  20 

20 

CIV 

ICE 

1000. 

20 

5 

ACC 

0 

.1  20 

20 

CIV 

ICE 

1000. 

20 

6 

ACC 

0 

.1  20 

20 

DIV 

ICE 

1000. 

20 

7 

ADC 

0 

.1  20 

20 

DIV 

ICE 

1000. 

20 

8 

ACC 

0 

.1  20 

20 

DIV 

ICE 

1000. 

20 

9 

ACC 

0 

.1  20 

20 

DIV 

ICE 

1000. 

20 

10 

ACC 

0 

.1  20 

20 

DIV 

ICE 

1000. 

20 

11 

FOR 

MAT 

(1H  F  9 

.0, 

►  10F10.5) 

F  PR 

INT 

It  2,3, 

4,f 

>♦  6 

F  PR 

I  NT 

1,7,8 

,5? 

,10, 11 

STOP 


See  chapter  6  for  a  shorter  instruction  set- 
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Problem  3  —  6 


Compute  a  table  of  vertical  heights  of  an 
which  subtends  an  angle  0  at  a  distance  d«  Use 


h  =  d  tan  0 


for  d  =  0* ( • Ol) • 5  meters  for  0  =  10. ( 10.) 80* ° 


The  OMNITAB  instructions  are  as  follows • 


CMMTAB  PROBLEM  3-6 

TITLE1  TABLE  OF  VERTICAL  HEIGHTS 

FIXEC  6 

NCSUNMARY 

GENERATE  0.  .Cl  .5  1 


TAND 

10. 

1  2 

TAND 

20. 

1  3 

TAND 

30. 

I  4 

TAND 

40. 

1  5 

TAND 

50. 

1  6 

TAND 

60. 

1  7 

TAND 

70. 

1  8 

TAND 

80. 

1  9 

HEAD 

1/ 

t 

HEAD 

2/ 

THETA 

= 

10 

HEAD 

3/ 

THETA 

= 

20 

HEAD 

4/ 

THETA 

= 

30 

HEAD 

5/ 

THETA 

= 

40 

HEAD 

6/ 

THETA 

= 

50 

HEAD 

7/ 

THETA 

= 

60 

HE  AO 

8/ 

THETA 

= 

70 

HEAD 

9/ 

THETA 

= 

80 

PRINT  1  2  3  A  5 
PRINT  16789 
STOP 


See  opposite  page  for  results  and  chapter  6  for 
succinct  instruction  set. 


object 


a  more 
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PAGE  1  OMNI T  A  B  PROBLEM 

TABLE  OF  VERTICAL  HEIGHTS 


nO 

I 

m 


— i  (\l  ro 
0s  30 
N  H 

co  o  in 

O  ^  CM 

o  o  o 


N-  —• 
vf  CM 


n-  a  co 


A 

o 

o 

•  • 

o  o 


o  o 

•  • 

o  o 


•<r  n-  ^ 
<1  MO 
ro  n-  o 
o  o 
o  c  o 
•  •  • 
o  o  o 


c 

o 

•  * 

o  o 


n-  o 

CM  O' 
A  C\l 

m  a 
o  o 
o  o 

•  • 

o  o 


o  o  o 
o  o  o 
o  o  o 
o  o  o 
-H  cm  m 
o  o  o 
•  •  • 
o  o  o 


~  II 


m 

N- 

'O 

A 

O 

•  • 

o  o 


nO  00  N-  o 

M  m  A  O  N  O 

't  ^  00  A  M  O 

on  o  >o  CO  o  o 

H  N  M  CO  ^  O' 

h  h  cm  c\j  m  m 

•  ••••» 

o  o  o  o  o  o 


ro  A 
O  —I 
n-  >4- 

m  o 

A  —I 
sf  A 

t  t 

o  o 


m  o  ^  O'  ^  cr 

N  A  M  O  N  ^ 
o  sj-  co  m  cc 
N  ‘J-  M  O  S  ^ 
CM  A  00  O  CO  >0 

OOOr-l^*— 
•  ••«•• 

o  o  o  o  o  o 


CO  00  (A 
MON 

co  cm 

MON 
O  H  ^ 
H  M  M 

•  •  • 

o  o  o 


— t  — I  CM 
CM  sT  vO 
CO  sO  O' 
N-  >0  -h 
H  (d  A 

o  o  o 

•  *  t  * 

o  o  o  o 


M  ro  fO  ^  A 
CO  O  CM  vO  00 

CM  O  O'  CM  A  CO 

O  O  fO  H  CO  A 

vO  00  O  CM  CO  A 

O  C  r-4  1-H 

•  *•••# 

o  c  o  o  o  o 


OOACOOOOACOOa 
HCOANCOOM'flT 
CnaON-vOAA>rcOC\ 
'HCOAN-CT'^-ICOAN 
HMrOsfANCOOC 
oooooooo- 
•  *•••••••< 

oooooooooc 


o  o  o  o  o 

o  o  o  o  o 

o  o  o  o  o 

o  o  o  o  o 

CM  CO  A  >0 

o  o  o  c  o 


o  o  o 
o  o  o 
o  o  o 
o  o  o 

N  CO  o 

o  o  o 


oooooooooo 


•  •  •  • 

o  o  o  o 


55 


100000  0.119175  0.173205  0.274748  0.567128 
110000  0.131093  0.190526  0.302222  0.623841 
120000  0.143010  C. 207846  0.329697  0.680554 
130000  0.154928  0.225167  0.357172  0.737267 


Problem  3—7 


Add  certain  third  virial  corrections  to  a  table  of 
ideal-  gas  thermodynamic  functions  of  nitrogen. 

The  OMNITAB  instructions  are  as  follows^ 


OMNITAB  PROBLEM  3-7 

TITLE1  THERMO  FUNCTIONS  FOR  NITROGEN  INCLUDING  3RD  VIRIAL  CORRECTION 
TITLE2  T  =  200C 

READ  31,1,2,3,4,5,6  UNCORRECTED 


4. 

0. 

1.0015 

2.8972 

3.8987 

28.3089 

7. 33284E+00 

2. OR 

4. 

0.20 

1.0023 

2.8972 

3.8995 

27.8475 

1.  16318E  +  01 

2. OR 

4  « 

0.40 

1.0037 

2.8971 

3.9009 

27.3855 

1 • 84604E+01 

2. OR 

4. 

0.60 

1.0059 

2.8971 

3.9029 

26.9227 

2. 93212E+01 

2. OR 

4. 

0.80 

1.0093 

2.8969 

3.9062 

26.4586 

4.66301E+01 

2. OR 

4. 

1.00 

1.0148 

2.8967 

3.9115 

25.9924 

7 . 43037E+  01 

2. OR 

4. 

1.20 

1.C235 

2.8963 

3.9198 

25.5229 

1. 18768E+02 

2. OR 

4. 

1.40 

1.0372 

2.8957 

3.9329 

25.0481 

1. 90758E+02 

2. OR 

4. 

1.60 

1.0589 

2.8948 

3.9537 

24.5649 

3. 08670E+02 

2. OR 

4. 

1.80 

1.0934 

2.8934 

3.9868 

24.0684 

5. 05130E+02 

2. OR 

4. 

2.00 

1.1480 

2.8911 

4.0391 

23.5510 

8  •  4057 1E  +  02 

2. OR 

4* 

2.20 

1.2346 

2.8874 

4.1220 

23.0003 

1. 4  3267E  +  03 

2. OR 

4  • 

2.40 

1.3718 

2.8816 

4.2534 

22.3968 

2. 52298E+03 

2. OR 

4. 

2.60 

1.5892 

2.8725 

4.4617 

21.7096 

4.63251E+03 

2. OR 

4. 

2.80 

1.9339 

2.8579 

4.7918 

20.8900 

8 • 93420E  +  03 

2. OR 

4  « 

3.00 

2.4801 

2.8349 

5.3150 

19.8602 

1.81591E+04 

2. OR 

:EAD 

1,12,13,14, 

15,30, 16 

CORRECTIONS 

0. 

C. 00000 

0.00000 

O.OOCOO 

-0.00000 

2.0 

1 • 6356E-05 

0.2 

0.00001 

0.00000 

0.00C01 

-0.00000 

2.0 

6.51 15E-05 

0.4 

0.00001 

0.00000 

0.00C02 

-0.00001 

2.0 

2 • 5923E-04 

0.6 

0.00004 

0.00000 

0.00C04 

-0.00001 

2.0 

1 • 0320E-03 

0.8 

0.00009 

0.00001 

C.00C10 

-0.00003 

2.0 

4.1 085E-03 

1.0 

0.00022 

0.00003 

0.00025 

-0.00008 

2.0 

1.6356E-02 

1.2 

0.00056 

0.00007 

0.00063 

-0.00021 

2.0 

6.5115E-02 

1.4 

0.00141 

0.0C018 

0.00159 

-0.00053 

2.0 

2.5923E-01 

1.6 

C. 00354 

0.00045 

0.00399 

-0.00132 

2.0 

1.0320E+00 

1.8 

0.00889 

0.00112 

0.01001 

-0.00333 

2.0 

4. 1085E+00 

2.0 

0.02233 

0.00282 

0.02515 

-0.00836 

2.0 

1 • 6356E+01 

2.2 

0.05609 

0.00709 

0.06318 

-0.02099 

2.0 

6.5115E+01 

2.4 

0. 14089 

0.01780 

0.15869 

-0.05273 

2.0 

2.5923E+0 2 

2.6 

0.35390 

0.04472 

0.39862 

-0.13245 

2.0 

1 • 0320E+03 

2.8 

0.88895 

0.11234 

1.00129 

-0.33270 

2.0 

4. 1085E+03 

3.0 

2.23295 

0.28218 

2.51513 

-0.83571 

2.0 

1.6356E+04 

ADC  2,12,12 
ACC  3,13,13 
ADC  4,14,14 
ACC  5,15,15 
ACC  6,16,16 

PRINT  1,12,13,14,15,16,30 

NOSUMMARY 

HEAD  1/  LOG 

HEAD  12/  Z 

HEAD  13/  E/RT 

HEAD  14/  H/RT 

HEAD  15/  S/R 

HEAD  COL  16/  P ( ATM  ) 
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Problem  3-7  (continued) 


HEAD  CCL  30/ 

FIXEC  WITH  4  CECIMALS 

PRINT  1,12,13,14,15,16,30 

FOR  VAT ( 10 X, 1F4.2,4F9.4, 1PE13.5,1F8.1) 

TITLE2  T  =  2000  LOG  Z  E/RT  H/RT  S/R  P(ATV) 

FPRINT  1,12,13,14,15,16,30 
STOP 


Results 


PAGE  4  OMNITAB  PROBLEM  3-7 

THERMO  FUNCTIONS  FOR  NITROGEN  INCLUDING  3RD  VIRIAL  CORRECTION 


2000  LCG 

Z 

E/RT 

H/RT 

S/R 

P ( ATM) 

0. 

1.0015 

2.8972 

3.8987 

28.3089 

7.33286E 

00 

0.20 

1.0023 

2.8972 

3.8995 

27.8475 

1. 16319E 

01 

0.4G 

1.0037 

2.8971 

3.9009 

27.3855 

1.84607E 

01 

0.60 

1.0059 

2.8971 

3.9029 

26.9227 

2.93222E 

01 

0.80 

1.0094 

2.8969 

3.9063 

26.4586 

4.66342E 

01 

1.00 

1.0150 

2.8967 

3.9117 

25.9923 

7 . 4320  IE 

01 

1.20 

1.0241 

2.8964 

3.9204 

25.5227 

1. 18833E 

02 

1.40 

1.0386 

2.8959 

3.9345 

25.0476 

1.91017E 

02 

1.60 

1.0624 

2.8952 

3.9577 

24.5636 

3.09702E 

02 

1.80 

1.1023 

2.8945 

3.9968 

24.0651 

5.092 3 8E 

02 

2.00 

1.1703 

2.8939 

4.0642 

23.5426 

8.56927E 

02 

2.20 

1.2907 

2.8945 

4. 1852 

22.9793 

1.49778E 

03 

2.40 

1.5127 

2.8994 

4.4121 

22.3441 

2.78221E 

03 

2.60 

1.9431 

2.9172 

4.8603 

21.5771 

5 • 6645  IE 

03 

2.80 

2.8228 

2.9702 

5.7931 

20.5573 

1.30427E 

04 

3.00 

4.7130 

3.1171 

7.8301 

19.0245 

3 . 45 1 5  IE 

04 
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Problem  3—8 


Calculate  an  abridgement  of  a  table  of  Squares? 
Cubes  and  Roots  and  a  table  of  Factors  for  Computing 
Probable  Errors  from  the  Handbook  of  Chemistry  and 
Physics?  38th  Edition?  pages  182  and  206?  respectively. 


The  OMNITAB  instructions  are  as  follows i 


CMMTAfi  PROBLEM  3-8 

TITLE1  POWERS  AND  ROOTS 

GENERATE  ARC-  1.(1.  )20.  IN  1 

RAISE  1,  2.  , STORE  IN  2 

RAISE  1,  0.5,  3 

MULTIPLY  1,  BY  10. STORE  IN  4 

MULTIPLY  1,  BY  100 .  STORE  IN  5 

RAISE  4  TO  0.5,  STORE  IN  6 

RAISE  1,  TO  3.0,  STORE  IN  7 

OIVICE  I.  BY  3.  30 

RAISE  1  TO  COL  30 , STCR E  IN  8 

RAISE  4  TO  COL  30, STORE  IN  9  , 

RAISE  5  TO  COL  30, STORE  IN  10 

TITLE2  X  { N )  2  <N)l/2  (10N)l/2  (N)3 

TITLE4  ( 10N ) 1/3  (100NJ1/3  1 

FORMAT (2F9.0, 2X, 2F1 1.6, FI 1.0, 4F 1 1.6) 

F  PR  I  NT  1  2  3  6  7  8  9  10 
RAISE  1?  TO  -0.5  STORE  IN  11 
SUBTRACT  1.  FROM  1  STORE  12 
RAISE  12  TO  -.5,  STORE  13 
MULTIPLY  11  BY  13  , STORE  14 
MULTIPLY  .6745  BY  13  ,  STORE  15 
MULTIPLY  .6745  BY  14,  STORE  16 
MULTIPLY  .8453  BY  13  ,  STORE  17 
CIVILE  17  BY  1,  STORE  18 
MULTIPLY  .8453  BY  14,  STORE  19 

TITLE1  FACTORS  FOR  PROBABLE  ERROR  CALCULATIONS 

TITLE2  N  I/O  !/()()  .6745/0  .6745/0  ( 

TITLE4  .8453/ (  )  (  ) 

FORMAT (F9*0,8F11.6) 

FPRINT  1  11  14  15  16  18  19 
STOP 
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PAGE 


PAGE 


1 

CMMTAB 

PROBLEM 

3-8 

POWERS  AND 

ROOTS 

X 

( N  )  2 

(N)  1/2 

(  ION)  1/2 

( N  )  3 

(N) 1/3 

1 . 

1. 

1.000000 

3.162278 

1. 

1.000000 

2. 

4. 

1.414214 

4.472136 

8. 

1.259921 

3. 

9. 

1.732051 

5.477225 

27. 

1.442250 

4. 

16. 

2.000000 

6.324555 

64. 

1.587401 

5. 

25. 

2.236068 

7.071068 

125. 

1.709976 

6. 

36. 

2.449490 

7.745966 

216. 

1.817121 

7. 

49. 

2.64575  1 

8.366600 

343. 

1.912931 

8. 

64. 

2.828427 

8.944271 

512. 

2.000000 

9. 

81. 

3.000000 

9.486832 

729. 

2.080084 

10. 

100. 

3.162278 

10.000000 

1000. 

2.154435 

11. 

121. 

3.316625 

10.488088 

1331. 

2.223980 

12. 

144. 

3.464  102 

10.954451 

1728. 

2.289428 

13. 

169. 

3.605551 

11.401754 

2197. 

2.351335 

14. 

196. 

3.741657 

11.832159 

2744. 

2.410142 

15. 

225. 

3.872983 

12.247448 

3375. 

2.466212 

16. 

256. 

4.000000 

12.649110 

4096. 

2.519842 

17. 

289. 

4.  123105 

13.038404 

4913. 

2.571281 

18. 

324. 

4.242640 

13.416407 

5832. 

2.620741 

19. 

361. 

4.358899 

13.784048 

6859. 

2.668402 

20. 

400. 

4.472136 

14.142135 

8000. 

2.714417 

2 

OMMTA 

B  PROBLEM 

3-8 

FACTORS 

FOR  PROBABLE 

ERROR  CALCULATIONS 

N 

I/O 

1/ (  )  (  ) 

6  745  /  (  ) 

. 6745 / { ) ( ) 

•  845  3/ ( 

1. 

1.000000 

0. 

0. 

0. 

0. 

2. 

0.707107 

0.707107 

0.674500 

0.476944 

0.422650 

3. 

0.577350 

0.408248 

0.476944 

0.275363 

0.199239 

4. 

0.500000 

0.288675 

0.389423 

0.194711 

0.122009 

5. 

0.447214 

0.223607 

0.337250 

0.150823 

0.084530 

6. 

0.408248 

0.182574 

0.301646 

0.123146 

0.063005 

7. 

0.377964 

0.154303 

0.275363 

0.104078 

0.049299 

8. 

0.353553 

0.133631 

0.254937 

0.090134 

0.039937 

9. 

0.333333 

0.117851 

0.238472 

0.079491 

0.033207 

10. 

0.316228 

0.105409 

0.224833 

0.071099 

0.028177 

11. 

0.301511 

0.095346 

0.213296 

0.064311 

0.024301 

12. 

0.288675 

0.087039 

0.2C3369 

0.058708 

0.021239 

13. 

0.277350 

0.080064 

0.194711 

0.054003 

0.018771 

14. 

0.267261 

0.074125 

0.187073 

0.049997 

0.016746 

15. 

0.258  199 

0.069007 

0.180268 

0.046545 

0.015061 

16. 

0.250000 

0.064550 

0.174155 

0.043539 

0.013641 

17. 

0.242536 

0.060634 

0.168625 

0.040898 

0.012431 

18. 

0.235702 

0.057166 

0.163590 

0.038559 

0.011390 

19. 

0.229416 

0.054074 

0.158981 

0.036473 

0.010486 

20. 

0.223607 

0.051299 

0.154741 

0.034601 

0.009696 
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Problem  3—9 


Quantities  of  interest  in  designing  a  light  gas 

gun  of  constant  diameter  are  the  nondimensional  barrel 

length,  L  ;  the  chamber  length,  L  ;  the  acceleration 
b  c 

which  the  projectile  experiences,  u  ;  and  the  efficiency 
of  the  gun  with  respect  to  a  theoretical  one  which 
yields  constant  acceleration.  The  expressions  for  these 
quantities  are: 


'B 


(y+1  ) 


[  1.0  - 


1.  0 


_  ( 


J£tl 


U 


( 1.  0 


_  XtL 

2 


U  ) 


v+1 

y-1 


L 


c 


(Y+l  )  [  (1.0  -*§±-  U)  fife) 


1.  0  J 


u 


uj 


2.V 

Y-1- 


Efficiency 


where  U  is  the  projectile  velocity  and  y  is  the 
specific  heat  ratio  of  the  propelling  gas* 

These  quantities  have  been  calculated  for  several 
values  of  u  for  a  driver  gas  with  a  specific  heat  ratio 
of  1-4* 
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The  OMNITAB  instructions  are  as  follows 


0MMTA8  PRCBLEM  3-9  7/5  DRIVER 

NOSUMMARY 

TITLE1  U=V/A,L=PAX/MC 

TITLE2  UDGT= (VCCT )  M  /  P  A 

GENERATE  0 . 0 ( . 05 ) 4. 95 , 1 

MULT  1 ,  •  2 , 2 

SUE  2,1. ,2 

RAISE  2, 6. ,2 

MULT  1, 1.2,3 

SUB  3,1. ,3 

DIV  3,2,2 

sue  2,1. ,2 

MULT  2, .8333,2 
MULT  1 ,  . 2 , 3 
sue  3,1. ,3 
RAISE  3,3. ,3 
DIV  1  • , 3 , 3 
SUB  1  •  ,  3 , 3 
MULT  3, .8333, 3 
RAISE  1,2., A 
DIVIDE  A, 2, 4 
MULT  1 , . 2 , 5 
sue  5,1. ,5 
RAISE  5,7. ,5 
HEAD  1/  U=V/ A 
HEAD  2/  LEARREL 
HEAD  3/  LCHAMBER 
HEAD  4/  EFFIC. 

HEAD  5/  UDOT 
PRINT  1,2, 3, 4, 5 
STOP 
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PAGE  1  OMMTAB  PROBLEM  3-9  7/5  DRIVER 

LNV/AfL=PAX/MC 
LDCT=  (VDCDP/PA 

U= V/ A  LBARREL  LCHAMBER  EFFIC.  UDOT 
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3 1 2  E 


Problem  3  —  10 


Generate  and  plot  the  values?  for  x  between  0  and 
6  in  steps  of  0*  2?  of  the  polynomial  whose  roots  are  at 
x  =  0?  1?  2 y  3?  4?  5 y  6 •  Carry  out  the  computations  of 
the  function  in  the  form* 


y  -  x(x-l)  (x-2)  (x~3)  (x-4)  (x-5)  (x-6) 


The  OMNITAB  instructions  are  as  follows* 


OMN I  TAB  PROBLEM  3-10 

TITLE1  ELEMENTARY  SYMMETRIC  FUNCTION 

GENERATE  0.  .2  6.  IN  COL  1 

SUB  1.  FROM  1,  MULT  BY  1,  ADD  TO  9 

SUB  2.  FROM  lt  MULT  BY  9,  ACD  TO  8 

SUB  3.  FROM  1  f MULT  BY  8  AOD  TO  7 

SUB  4*  I  7  6 

SUB  5*  1  6  5 

sue  6 •  154 

NOSUMMARY 
FIXED  4 
PRINT  1,4 

DEMOTE  1  LINE  CCL  1  INTO  I  COL  4  INTO  4 
DEFINE  10,  AS  ROW  1  COL  1 
DEFINE  0.  AS  RCW  1  COL  4 
PLOT  CCL  4  AGAINST  1 
STOP 


In  order  to  compress  the  plot  of  this  function  to  fit 
the  printed  page  we  have  introduced  the  DEMOTE  and  the 
two  DEFINE  instructions  to  provide  a  point  with  the 
coordinated  (10>0)  so  that  the  plot  on  page  65  would 
have  a  uniform  abscissa  from  0*  to  10*  Note  should  be 
taken  that  the  zeros  of  the  function  do  indeed  fall  at 
the  integral  values  0?  1  ••••  6  and  that  this  fact  is 
confirmed  in  the  printed  results  on  the  next  page*  The 
reader  is  encouraged  at  this  point  to  see  what  happens 
when  the  results  are  printed  to  more  than  4  decimals  as 
for  example  via  the  built-in  format*  See  Problem  6—5  for 
an  automatic  way  of  isolating  roots  in  a  function  of 
this  type* 
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PAGE  1  CMMTA8  PROBLEM  3-10 

ELEMENT  ARY  SYMMETRIC  FUNCTION 

COLUMN  1  COLUMN  4 


0.  0. 


0*2000 

85.3107 

0.4000 

92.5876 

0.6000 

65.1442 

0.8000 

29.5207 

1.0000 

0.0000 

1.2000 

-17.6505 

1.4000 

-23.1469 

1.6000 

-19.3020 

1.8000 

-10.2187 

2.0000 

-0.0000 

2.2000 

8.0898 

2.4000 

12.0766 

2.6000 

11.4057 

2.8000 

6.8125 

3.0000 

0.0000 

3.2000 

-6.8125 

3.4000 

-11.4057 

3.6000 

-12.0766 

3.8000 

-8.0898 

4.0000 

-0.0000 

4.2000 

10.2187 

4.4000 

19.3020 

4.6000 

23.1469 

4.8000 

17.6505 

5.0000 

0.0000 

5.2000 

-29.5207 

5.4000 

-65.1442 

5.6000 

-92.5876 

5.8000 

-85.3107 

6.0000 

0. 
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PAGE 


2 


OMNI T  A  B 


ABSCISSA 

ORDINATES 

0.92538E 

0.55553E 

0. 18518E 

-0.18518E 

-0. 55553  E 

-0.92588E 

0, 


PROBLEM  3-10 

ELEMENTARY  SYMMETRIC  FUNCTION 

-  CCLUMN  1 
-  COLUNN  A  ( . ) , 

+ - + - + - + - + - ♦ - + 

02  + 


02  + 


02  + 


S. 


02  + 


02  + 


02  + 

0.20000E  01  C.4CCC0E  01  0.60000E  01 
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Problem  3-11 


Compute  a  table  of  the  following  functions  of  the 
quantum  numbers  J,  J2,  J(J+l),  j2(j+l),  J+1/2,  ( J+l/2)2, 

(J+l/2)2  for  J  =  0(1)100 

The  OMNITAB  instructions  are  as  follows! 


OMMTAB  PRCBL 
NCSURHARY 
TITLfcl  J=0  TO 
GENERATE  0.(1. 
MULTIPLY  CCL 
ACC  1. 

MULTIPLY  CCL 
MULTIPLY  CCL 
MULTIPLY  CCL 
ACC  1. 

MULTIPLY  CCL 
ACC  .5 

MULTIPLY  CCL 
MULTIPLY  COL 
FIXEC  0 
HEAD  CCL  I/J 
HEAD  CCL  2/JXJ 
HEAD  CCL  4/  J  (  J 
HEAD  CCL  8/JXJ 
PRINT  1,2, 4, 8 
PRINT  1,2, 4,8 
FIXEC  3 
HEAD  CCL  I/J 
HEAD  CCL  9/J+. 
HEAD  CCL  10/CJ 
HEAD  CCL  11/(J 
PRINT  1,9,10,1 
STOP 


EH  3  -  11 
J=  100 

)100.  STORE  IN  COL  1 
I  BY  COL  1  AND  STORE  IN  COL  2 
TO  COL  1 AND  STORE  IN  COL  3 

1  BY  CCL  3  AND  STORE  IN  COL  4 

3  BY  CCL  3  ANC  STORE  IN  COL  5 

2  BY  COL  5  ANC  STORE  IN  COL  6 

TO  COL  2  AND  STORE  IN  COL  7 

2  BY  COL  7  AND  STORE  IN  COL  8 
TO  COL  I  AND  STORE  IN  COL  9 
9  BY  C0L9  ANC  STORE  IN  COL  10 
9  BY  COL  10  AND  STORE  IN  COL 


41) 

(  JX J  4  1  ) 


11 


(FOR  A  SECOND  COPY) 


5 

4.5) 2 

4.5) 3 
1 
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Problem  3  -  12 


Tabulate*  x*  and  (x— 1*893) *  for  t  =  —2*, 

-2/3,  -l/2,  -2/5,  -l/3,  -2/7,  -l/4,  -2/9,  -l/5 
-2/ll.  Use  x  =  0(  0*  1) *  5(  0*  5)  10* (  1* )  50* (  5* )  100*  for 
and  x  =  2*  0(  1* )  1 00*  for  (x— 1*  893)** 


1*  9 

and 


The  OMNITAB  instructions  are  as  follows* 


OMNITAB  PROBLEM  3  -  12 
NOStJMMAPY 

GENERATE  0. ( 0. 1 ) . 5 ( 0 . 5 ) 10 . ( 1 . ) 50. ( 5 . ) 100 .  IN  COL  1 
GPNBRATP  2. (0.5)10. (1. )50. f 5. )100.  IN  COL  2 
SUBTRACT  1.893  FROM  COL  2  AND  STORE  IN  COL  3 


titlei 

X  TO  THE  T 

POWER 

RAISE 

COL 

1 

TO  2. 

POWER 

AND 

STORE 

IN 

COL 

4 

RAISE 

COL 

1 

TO  -1. 

POWER 

AND 

STORE 

IN 

COL 

5 

RAISE 

COL 

1 

TO  -0.666667 

POWER 

AND 

STORE 

IN 

COL 

6 

RAISE 

COL 

1 

TO  -0.5 

POWER 

AND 

STORE 

IN 

COL 

7 

RAISE 

COL 

1 

TO  -0.4 

POWER 

AND 

STORE 

IN 

COL 

8 

RAISE 

COL 

1 

TO  -0.35335 

POWER 

AND 

STORE 

IN 

COL 

9 

RAISE 

COL 

1 

TO  -0.23571 

POWER 

AND 

STORE 

IN 

COL 

10 

RAISE 

COL 

1 

TO  -0.25 

POWER 

AND 

STORE 

TN 

COL 

11 

RAISE 

COL 

1 

TO  -0.22222 

POWER 

AND 

STORE 

IN 

COL 

12 

RAISE 

COL 

1 

TO  -0.2 

POWER 

AND 

STORE 

IN 

COL 

13 

RAISE 

COL 

1 

TO  -0.18182 

POWER 

AND 

STORE 

IN 

COL 

14 

FIXED 

6 

PRINT 

1  *4* 

5 

.6.7,8 

PRINT 

COLS 

1,9,10,11 ,12, 

13,14 

TITLEI 

.  (X 

- 

1.893)  TO  THE  T  1 

POWER 

RAISE 

COL 

3 

TO  2* 

POWER 

AND 

STORE 

IN 

COL 

4 

RAISE 

COL 

3 

TO  -1. 

POWER 

AND 

STORE 

IN 

COL 

5 

RAISE 

COL 

3 

TO  -0.666667 

POWER 

AND 

STORE 

IN 

COL 

6 

RAI  SF 

COL 

3 

TO  -0.5 

POWER 

AND 

^TORE 

IN 

COL 

7 

RAISE 

COL 

'X 

TO  -0.4 

POWER 

AND 

store 

IN 

COL 

8 

RAISE 

COL 

3 

TO  -0.33333 

POWER 

AND 

STORE 

IN 

COL 

9 

RAISE 

COL 

3 

TO  -0*28671 

POWER 

AND 

STORE 

IN 

COL 

10 

RAISE 

COL 

3 

TO  -0.25 

POWER 

AND 

STORE 

IN 

COL 

11 

RAISE 

COL 

3 

TO  -0.22222 

POWER 

AND 

STORE 

IN 

COL 

12 

RAISE 

COL 

3 

TO  -0.2 

POWER 

AND 

STORE 

IN 

COL 

13 

RAISE 

COL 

3 

TO  -0.18182 

POWER 

AND 

STORE 

IN 

COL 

14 

PRINT  COLS  2*4*5*6*7*8 

PRINT  COLS  2*9*10*11 *12*13*14 

STOP 
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Problem  3  —  13 


Compute 

E(r)  =  4-  5  -  (  0-  6667rS  +  3r4  +  6r®  +  9r2  +  9r  +  4.5)e~2r 
for  r  =  1*  ( •  5)  10* 

The  OMNITAB  instructions  are  as  follows* 


OMMTAB  PROBLEM  3-13 
NOSUMMARY 

GENERATE  1.(0. 5)10.  IN  COL  1 

ACC  4.5  TO  COL  2  ANO  STORE  IN  COL  2 

MULTIPLY  COL  1  BY  9.  » MULT  BY  1.,  ADO  TO  COL  2 

RAISE  COL  1  TO  2.  POWER  MULT  BY  9.  ADD  TO  COL  2 

RAISE  CCL  1  TO  3.  POWER  MULT  BY  6.  AND  ADD  TO  COL  2 

RAISE  CCL  1  TO  4.  POWER  MULT  BY  3.  AND  ADD  TO  COL  2 

RAISE  CCL  1  TO  5.  POWER  MULT  BY  .66667  AND  ADD  TO  COL  2 

MULT  CCL  1  BY  2.  STORE  IN  COL  3 

NEGEXP  CF  CCL  3  MULT  BY  COL  2  AND  ADD  TO  COL  4 

SUBTRACT  COL  4  FROM  4.5  AND  STORE  IN  COL  5 

HEAD  CCL  1/  R 

HEAD  CCL  5/  E { R ) 

PRINT  CCLS  i  t  5 
STOP 


Problem  3—14 


Compute  the  vibrational-rotational  lines  of  a 
parallel  band  for  ethane  from  the  formula* 

v  =  2753*493  +  1* 31596m  -  0* 010564m2  -  2* 92( 10~6) m3 

for  m  0(l)40  for  the  R  branch  and  for  negative  values 
for  the  P  branch.  Compare  these  values  with  the 
experimentally  determined  values  supplied  for  ±m  = 
4(1)17* 

The  OMNITAB  instructions  are  on  the  following  page* 
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OHNITAB  PROBLEM  3-14 
NOSUMMARY 

TITLfcl  CALCULATIONS  FOR  K=3 
GENERATE  0.(1.) AO .  IN  COL  1 
MULT  CCL  1  eY  1.31596  STORE  IN  2 

MULT  1  -1.31596  STORE  IN  5 

ACC  2753.493  TO  2,  2 

ADC  2753.493  5,  5 

MULT  CCL  1  BY  COL  1,MULT  BY  -0.01054  AND  ADO  TO  COL  2 

MULT  CCL  1  BY  COL  1,MULT  BY  -0.01054  AND  ADD  TO  COL  5 

MULT  CCL  1  BY  COL  l.MULT  BY  COL  1  AND  ADD  TO  COL  30 

MULT  CCL  30  BY  -2.92E-6  MULT  BY  1.  AND  ADD  TO  COL  2 

MULT  CCL  30  BY  2.92E-6  MULT  BY  1.  AND  ADD  TO  COL  5 

HEAD  CCL  1/  M 

HEAD  CCL  2/  R 

HEAD  CCL  5/  P 

FIXED  3  CECIMALS 

PRINT  CCLS  1,2,5 

READ  CCLS  667  (see  footnote  ) 

0. f  0  *  ,  0 , 

1 • » 0  •  ,  0  , 

2  •  ,  0 • ,  0  * 

3  •  ,  0  .  ,  0  • 

4. . 58.584.48.074 
5.  ,59.795,46.645 

6. . 61.006.45.216 

7.  ,62.  184,43.774 

9.  ,64.478,40.795 

8.  ,63.329,42.298 

10.  ,65.584,39.279 

11.  ,66.671,37.742 

12. . 67.741.36. 189 

13. . 68.811.34.620 

14. . 69.832.33.013 
15.  ,70.840,31.400 

16. . 71.828.29.749 
17.  ,72.797,28.091 


ADC 

2700.  TO 

COL 

6 

AND 

STORE 

IN 

COL 

6 

ADD 

2700.  TO 

COL 

7 

AND 

STORE 

IN 

COL 

7 

PRINT 

sue 

CCLS  1,6,7 
CCL  6  FRCM 

CCL 

2 

AND 

STORE 

IN 

COL 

8 

sue 

CCL  7  FRCM 

COL 

5 

AND 

STORE 

IN 

COL 

9 

HE AO  CCL  8/  DELTA  R 
HEAD  CCL  9/  DELTA  P 
RChSUM  COLS  2,5  STORE  6 
PRINT  CCLS  1,2, 5, 8, 9,6 
STOP 


The  repetition  of  the  6  in  this  instruction  causes  the 
second  number  on  the  cards  to  write  over  the  first 
number.  This  is  a  convenient  way  of  ignoring  data  not 
required  in  the  calculations*  If  the  second  column  were 
to  be  ignored  the  instruction  would  be  READ  COL  6,7,7  • 
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Problem  3  —  15 


Compute 
x 


=  [ 


313x2  923x3  18029X4  14643X5  ~x 

-  + - +  - ]  e 


480  3360  2240  33600 


44800 


for  x  =  • 01( • 01) 1 


The  OMNITAB  instructions  are  as  follows* 


OMNI  TAB  PRCBLEM  3-15 
NOSUMMARY 

GENERATE  .011. 01)1*  IN  COL  1 
MULT  CCL  1  BY  COL  1  AND  STORE  IN  COL  2 

MULT  CCL  1  BY  COL  2  AND  STORE  IN  COL  3 

MULT  CCL  1  BY  CCL  3  AND  STORE  IN  COL  4 

MULT  CCL  1  BY  CCL  4  AND  STORE  IN  COL  5 

DIVIDE  COL  1  BY  480.  AND  STORE  IN  COL  6 
DIVIDE  -313.  BY  3360.  MULT  BY  COL  2  AND  ADD  TO  COL  6 
DIVIDE  923.  BY  2240.  MULT  BY  COL  3  AND  ADD  TO  COL  6 
DIVICE  -18029.  BY  33600.  MULT  BY  COL  4  AND  ADD  TO  COL  6 
DIVIDE  14643.  BY  44800.  MULT  BY  COL  5  AND  ADD  TO  COL  6 
NEGEXP  CF  CCL  1  MULT  BY  COL  6  AND  ADD  TO  COL  7 
HEAD  CCL  1/  X 
HEAD  CCL  7/  Y 
PR  T  NT  CCLS  1,7 
STOP 


Problem  3  —  16 


Compute  a  table  of  corrected  optical  pyrometer 
temperatures  from  the  Planck  radiation  law* 

T  =  108(C*^) _ 

ln[s(exp(l08  C2At)  —  l)  +  l] 

where  C2  =  1.438,  \  =  6500,  e  =  • 02( • 02) . 20  and  T  = 

5000* ( 50* ) 10, 000° K 
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The  OMNITAB  instructions  are  as  follows 


OMMTAB  PROBLEM  3-16 
GENERATE  5000 .{ 50 .)  10000  .  IN  COL  1 

DIVIDE  1.438  BY  6500.,  MULT  BY  1.E8  AND  STORE  IN  COL  30 

DIVIDE  30  BY  1  ,  AND  STORE  IN  COL  29 

EXP  29  , STORE  IN  COL  2 

ACC  -1.  TC  CCL  2  ,  2 

MULT  .02  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVIDE  COL  30  BY  3  , STORE  IN  4 

MULT  .04  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  BY  3  , STORE  IN  5 

MULT  .06  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  BY  3  , STORE  IN  6 

MULT  .08  BY  CCL  2  , STORE  IN  COL  3 

ADC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVIDE  COL  30  BY  3  , STORE  IN  7 

MULT  .10  BY  CCL  2  ,STORE  IN  COL  3 

ADC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  BY  3  , STORE  IN  8 

MULT  .12  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  BY  3  , STORE  IN  9 

MULT  .14  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  BY  3  , STORE  IN  10 

MULT  .16  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVIDE  COL  30  BY  3  , STORE  IN  11 

MULT  .18  BY  CCL  2  , STORE  IN  COL  3 

ADC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  BY  3  , STORE  IN  12 

MULT  .20  BY  CCL  2  , STORE  IN  COL  3 

ACC  1.  TC  CCL  3  ,3 

LOGE  CCL  3,  STORE  IN  COL  3 

DIVICE  COL  30  EY  3,  STORE  IN  13 

FORMAT! IX, 1E6.C, 10 F8.0, 1F6.0  ) 

FPRINT  COLS  1,4,5,6,7,8,9,10,11,12,13,1 
STOP 
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Problem  3  —  17 


Compute  values  of  log  P  from  the  relationship 
log  P  =  • 218541A  -  • 10927l( B+C)  -  4. 70287. 104/t 
+  .218541ki/T 

for  values  of  A,  B>  C  given  in  tabular  form  for  seven 
temperatures*  Let  assume  each  of  the  values^ 

kj  =  9-2  x  104,  k2  =  1-245  x  106,  k3  =  1.845  x  105 


The  OMNITAB  instructions  are  as  follows* 


OMNITAB 

PROBLEM 

3-17 

TITLE1 

LOG 

P  BEF  G 

NOSUMMARY 

READ  1, 

2,3,4 

500. 

45.817 

1.8527 

5.497 

750. 

48.776 

3.1949 

9.  134 

1000. 

50.953 

4.3686 

13.5752 

1250. 

52.691 

5.4013 

17.7537 

1750. 

55.39C 

7.378 

24.4841 

2000. 

56.486 

8.349 

27.2683 

2250. 

57.463 

9.209 

29.7681 

MULTIPLY 

COL  2  BY 

0.218541 

STORE  IN 

MULT  0.109271  BY  COL  3  STORE  IN  COL  6 

MULTIPLY  COL  4  BY  0.109271  STORE  IN  COL  7 

CIVILE  4 • 70287  E4  BY  COL  1  STORE  IN  COL  8 

DIVIDE  0.218541  BY  COL  1  MULT  BY  9.2E4  ADD  TO  COL  9 

DIVIDE  0.218541  BY  COL  1  MULT  BY  1.245E5  ADD  TO  COL  10 

DIVIDE  0.218541  BY  COL  1  MULT  BY  1.845E5  ADD  TO  COL  11 


SUB 

CCL  6 

FRCM 

COL 

5  AND 

STORE 

IN  COL 

12 

SUB 

CCL  7 

FROM  COL 

12  AND 

STORE 

IN  COL 

12 

SUB 

CCL  8 

FROM  COL 

12  AND 

STORE 

IN  COL 

12 

ACC 

COL  9 

TO  CGL 

12 

STORE 

IN  COL 

13 

ADC 

COL  10 

TO  COL 

12 

STORE 

IN  COL 

14 

ACC 

COL  11 

TO  COL 

12 

STORE 

IN  CCL 

15 

HEAD  COL  13/D  92000 
HEAD  CCL  14/C  124500 
HEAD  CCL  15/C  184500 
HEAD  CCL  1/T  DEG.  K 
PRINT  CCL  15678 
PRINT  CCL  1  9  10  11 
PRINT  CCL  1  13  14  15 
STOP 
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Problem  3—18 


Compute  the  transition  probability  kernel  for 

Z  =  •  002( •  002) • 2  and  Z  =  002(  002) 2 

from  the  following  formulas^ 


F(Z)  =  (1  +  Z)  [ exp( — Z( 2  +  Z))  0-8862269  . 

[-erf(-0-l  +  4-95Z)  +  erf  (  10  +  4-95Z)]  + 

0- 8862269[erf ( 0. 1  +  5- 05Z)  +  erf ( 10+5* 05Z) ] ] 


F(Z)  =  (1  +  Z)  [  exp(  — Z(  2  +  Z))  0-  8862269  - 

[erf  (10  +  4-95Z)  +  erf  (-0-1  +  4-95Z)J  + 

0- 8862269(erf ( 10*  +  5- 05Z)  +  erf ( 0- 1+5- 05Z) J J 


The  OMNITAB  instructions  are  as  follows- 


0MNITA8  PROBLEM  3-18 

TITLE1  TRANSITION  KERNEL  X=1 

NGSUMMARY 

GENERATE  0 . 00 2 ( 0 . 002 ) 0 . 200  STORE  IN  COL  1 
MULTIPLY  CCL  1  BY  -1.  STORE  IN  COL  2 

ACC  1.  TO  CCL  1  MULTIPLY  BY  0.8862269  STORE  IN  COL  3 
2  MULTIPLY  BY  0.8862269  STORE  IN  COL  4 

1  MULTIPLY  BY  COL  1  STORE  IN  COL  5 

2  MULTIPLY  BY  COL  2  STORE  IN  COL  6 

5  STORE  IN  COL  7 

6  STORE  IN  COL  8 

BY  4.95  STORE  IN  COL  9 

BY  4.95  STORE  IN  COL10 

BY  5.05  STORE  IN  COL  11 

BY  5.05  STORE  IN  COL  12 

9  STORE  IN  COL  13 

10  STORE  IN  COL  14 

SUBTRACT  0.100  FROM  COL  9  STORE  IN  COL  15 
SUBTRACT  0.100  FROM  COL  10  STORE  IN  COL  16 
ACC  10.  TO  COL  11  STORE  IN  COL  17 

ACC  10.  TO  CCL  12  STORE  IN  COL  18 

ACC  0.100  TO  CCL  11  STORE  IN  COL  19 
ADC  0.100  TC  CCL  12  STORE  IN  COL  20 


ADC  1.  TO  CCL 
ACC  2.  TO  CCL 
ACC  2.  TO  CCL 
NEGEXP  CF  CCL 
NEGEXP  CF  CCL 
MULTIPLY  COL  1 
MULTIPLY  COL  2 
MULTIPLY  COL  1 
MULTIPLY  COL  2 
ACC  10.  TC  COL 
ADC  10.  TO  COL 
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List  of  OMNITAB  commands  for  Problem  3-18  (Continued) 


PRINT  CCLS  13 
PRINT  CCLS  17 
PRINT  CCLS  13 
PRINT  CCLS  17 
ERROR  CF  COL 
ERROR  CF  COL 
ERROR  CF  COL 
ERROR  CF  CCL 
ERROR  CF  COL 
ERROR  CF  COL 
ERROR  CF  COL 
ERROR  CF  COL 
PRINT  CCLS  13 
PRINT  CCLS  17 
PRINT  CCLS  13 
PRINT  CCLS  17 
SUBTRACT  COL 
ACC  COL  16  TO 
SUBTRACT  COL 
ACC  COL  20  TO 
ADC  COL  21  TO 
ACC  COL  22  TO 
SUBTRACT  COL 
SUBTRACT  COL 
HEAD  CCL  25/F 
HEAD  CCL  26/F 
HEAD  CCL  27 /F 


,  14, 15,  16 
,  18,19,20 
, 14, 15,  16 
,  18,19,20 
13  STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
, 14, 15,  16 
,18, 19,20 
, 14, 15,  16 
, 18, 19,20 
15  FROM 
COL  14 
19  FROM 
CCL  18 
CCL  23 
CGL  24 
23  FROM 
22  FROM 
( Z ) , E  =  0  •  1 
( Z ) , E=0  •  1 
( Z ) , E= 10. 


IN 

IN 

IN 

IN 

IN 

IN 

IN 

IN 


13 

14 

15 

16 

17 

18 

19 

20 


COL  13  MULTIPLY 
MULTIPLY  BY  COL 
COL  17  STORE  IN 
STORE  IN  COL  24 
MULTIPLY  BY  COL 
MULTIPLY  BY  COL 
COL  21  MULTIPLY 
COL  24  MULTIPLY 


BY  COL  7  ADD  TO  COL  21 
8  ADD  TO  COL  22 
COL  2  3 


3 

STORE 

IN  COL 

25 

4 

STORE 

IN  CGL 

26 

BY 

COL  3 

STORE 

IN 

COL 

27 

BY 

COL  4 

STORE 

IN 

COL 

28 

HEAD  CCL  28/F ( Z ) »  E= 10. 
HEAD  CCL  1/Z 
HEAD  CCL2/Z 

PRINT  CCL  ,  S  1 , COL  25, COL 
STCP 


27  , COL  2, COL, 26  C0L28 


74 


4*  SPECIAL  FEATURES 


As  important  as  mathematical  features  are?  they  are 
no  more  important  to  the  overall  efficiency  of  a  program 
than  are  a  variety  of  auxiliary  characteristics  such 
as*  flexible  input  and  output*  to  make  the  access  to  the 
machine  less  painful;  versatile  plotting  capabilities  — 
to  present  the  results  in  more  dramatic  and  meaningful 
form;  manipulative  capabilities  —  to  obviate  laborious 
hand  sorting  or  editing  of  data  prior  to  entering  the 
machine;  built-in  diagnostics  and  error  checking  —  to 
assist  in  trouble  shooting  a  calculation  which  has 
gotten  out  of  control  or*  alternatively*  to  supply 
assurance  of  the  accuracy  of  the  results;  and  finally* 
an  economy  of  operation  such  as  to  encourage  the  user  to 
adopt  an  experimental  approach  -  thereby  making  it 
possible  for  the  program  itself  to  teach  the  user  many 
of  its  less  obvious  characteristics* 

In  the  sections  which  follow  we  discuss  the  special 
features  mentioned  above  and  illustrate  their 
application  or  utility  as  the  case  may  be  by  citing 
concrete  examples  taken  from  some  of  the  productive  work 
to  which  OMNITAB  has  been  applied* 

Certain  manipulative  operations  of  OMNITAB  are 
worthy  of  special  mention.  These  are  transposing  of  a 
row  into  a  column,  the  promoting  or  demoting  of  the 
numbers  in  a  column  into  another  column  with  appropriate 
line  shifts*  the  saving  of  columns  for  later  use? 
stringing  together  of  columns,  the  inversion  of  columns, 
the  shortening  of  columns*  the  sorting  of  one  or  more 
columns  to  agree  with  an  ordered  arrangement  of  another 
column,  and  the  abridging  of  tables  for  certain  selected 
values  or  certain  groups  of  values*  Many  of  these 
operations  can  be  achieved  with  a  single  instruction. 
Others  may  require  two  or  more  instructions*  There  are 
enough  manipulative  operations  in  OMNITAB  to  perform  any 
of  the  card  handling  operations  which  are  normally  done 
by  the  sorter,  lister,  duplicating  punch,  and  collator* 
Some  of  these  features  are  employed  in  the  examples  in 
later  chapters* 
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4*1*  Input  of  Tabular  Data 


OMNITAB  has  been  programmed  to  accept  tabular  arrays 
of  data  in  as  many  forms  as  possible.  This  flexibility 
enables  it  to  accept  outputs  from  other  programs*  The 
program  will  accept  either  fixed  field  or  variable  field 
input*  Numbers  will  be  read  between  card  columns  1—72* 
They  may  originate  in  any  column  of  the  card  and  must  be 
separated  by  a  space  or  some  symbol  other  than  E  or  a 
decimal  point.  The  format  of  the  input  may  vary  from 
card  to  card  or  even  from  number  to  number.  Furthermore? 
no  card  count  need  be  supplied  as  the  program  does  its 
own  counting  of  data  cards* 

The  numbers  on  each  card  are  read  and  assigned  in 
sequence  to  the  designated  columns  in  the  machine.  Each 
number  on  the  card  may  be  assigned  to  any  of  the  46 
columns  in  the  work-sheet  simply  by  indication  the 
storage  columns  in  one— to— one  correspondence  with  the 
columns  of  the  table  to  be  read  in.  The  program  clears 
out  the  designated  column  before  storing  the  table.  If  a 
column  in  the  input  data  is  not  wanted?  it  cannot  be 
ignored.  It  may  be  read  into  some  column  and  then 
written  over-  Thus?  if  columns  1?  4?  and  5  of  a 
particular  5  column  input  are  to  be  read  into  columns  1? 
2?  and  3  respectively?  the  instruction  READ  1?2?2?2?3  or 
READ  1? 40? 40? 2? 3  would  accomplish  this. 

Numbers  such  as  dates?  identification?  etc.?  which 
do  not  usually  carry  decimal  points?  are  also  read  by 
the  program.  For  example?  the  data  3/4/62  would  be  read 
as  3  numbers.  The  program  automatically  floats  the 
numbers  (assuming  a  decimal  point  at  the  end  of  the 
number)  which  do  not  carry  decimal  points-  Examples  of 
mixed  input  acceptable  by  the  OMNITAB  program  are  given 
in  the  figures  which  follow- 

The  above  discussion  applies  to  data  being  supplied 
on  cards  following  a  READ  or  SET  instruction.  Data 
following  an  FREAD  instruction  must  be  punched  on  the 
cards  in  strict  compliance  with  the  FORMAT  statement 
which  preceded  it*  If  the  format  remains  fixed  for 
numerous  sets  of  data?  it  need  not  be  read  in  again 
prior  to  each  FREAD.  It  can?  however?  be  updated  at  will 
by  reading  in  a  new  FORMAT  instruction  when  the  data 
require  it  or  when  the  format  changes  for  the  output. 


The  FREAD  is  an  exception;  a  card  count  must  be 
supplied  (see  page  19). 
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OMNITAB  7/5/64 

READ  CCL  17,18,19,20,21,22,23,24,25,26,27,28,25,30,31,32 
D  1 ,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
D  0,1 
0  0,0,1 
D  0,0, 0,1 
D  0 ,0 ,0  ,0 , 1 
D  0,0, 0,0, 0,1 
C  0,0, 0,0, 0,0,1 


c  c 

,0,0 

,0,0,0,C,1 

D  0 

,0,0 

,0,0, 0,0,0, 1 

D  0 

,0,0 

,0,0, 0,0, 0,0, 1 

D  0 

,0,0 

,0,0, 0,0, 0,0,0, 

1 

0  0 

,0,0 

,0,0, 0,0, 0,0,0, 

0, 

1 

0  0 

,0,0 

,0,0,0,C, 0,0,0, 

0, 

0 

,  1 

0  0 

,0,0 

,0,0, 0,0, 0,0,0, 

0, 

0 

,0, 

1 

D  0 

,0,0 

,0,0,0,C, 0,0,0, 

0, 

0 

,0, 

c, 

r  1 

C  0 

,0,0 

,0,0, 0,0, 0,0,0, 

0, 

0 

,0, 

0, 

r  0  ,  1 

READ 

1,  2,  3,  4,  5, 

6, 

7 

0 

36265.  00000 

515 

8  0 

0  0  0  0  0 

188 

0 

0  9979  12795 

2679 

0 

20 

38 

77  0  30  128 

145 

69 

2225  424  10425 

0 

128 

0 

49 

173 

4165  2398  325 

2 

0 

145 

128  913  1080  1209  696  319  0 

3794  1109  12225  1835  2087  3890  8475 

2915  905  1388  709  1361  638  1065 

869  1682  77  709  907  383  1937 

524  324  0  1501  121  64  97 

326  23  0  3878  242  0  0 

10  0  0  250  136  0  0 

7845  2942  10297  2252  1996  4719  14286 

3537  2527  926  1877  1165  510  1840 

5444  2821  501  1772  1119  191  630 

READ  8,  9,  10,11,  12,13,14,  15,  16 

0  4646  3169  8939  0  421  0  1355  0 

0  1382  103  2466  0  120  0  6995  5 

0  0  1062  000  909  0  5 

264  29  85  99  335  0050 

275  882  874  83  0  601  2434  253  104 

550  2705  86  17  0  3065  0  0  30 

Figure  4—1-  Examples  of  variable  input  accepted  by 
OMNITAB-  The  numbers  are  automatically  floated  by 
placing  a  decimal  point  at  the  end  of  the  number.  When 

1 7 

a  number  exceeds  131071  ( 2  —  l) >  it  must  always  carry  a 

decimal  or  be  in  the  E  notation.  Note  that  when  numbers 
are  missing  at  the  end  of  a  card,  values  are  stored  from 
the  previous  card. 
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OMN I  TAB  8/2  8/64 
READ  1,10 


0 

0 

0 

0 

02 

-42885.89 

CF 

PC2 

0,0 

0 

0 

04 

-42885.89 

CF 

P02 

0,0 

05 

42886.74 

CF 

P02 

0,0 

06 

42888.11 

CF 

P02 

0,0 

07 

42890.09 

CF 

P02 

0,0 

08 

42892.53 

CF 

PC2 

0,0 

09 

-42895.62 

CF 

P02 

0,0 

10 

4289.172 

CF 

P02 

0,0 

11 

-42903.34 

CF 

P  02 

0,0 

12 

42908.09 

CF 

P  02 

0,0 

13 

42913.40 

CF 

P02 

0,0 

14 

42919.29 

CF 

P02 

0,0 

15 

42925.74 

CF 

P02 

0,0 

16 

-42932.77 

CF 

P02 

0,0 

17 

-42940.41 

CF 

P  02 

0,0 

18 

-42948.60 

CF 

P02 

0,0 

READ  COLUMNS  1,2, 3, 4 
.0000001  10000 
OOOOOil  11000 
0000012. 

000013 
00000 14E-0 
-.000000015 
.00000 16E+0 
-.000017 
.00018 
—  .001 9  EOOO 

54321. 4E-5 


120. 

1  3000 
14000 
15000 
1600000. 

17000 

18000 

190 

7654 321 E— 36 


-1  178.624 

2.  8 • 0006235E  1 

3  -7 . 2  IE— 4 

-4  3.14159E21 
5  -.00624 

-6.  527.111 

7  OOCOOOO. 

8. 

9 

0  9999999. 

.0  .22222222 


Figure  4—2 •  Further  examples  of  the  variable  input 
accepted  by  OMNITAB.  Note  in  the  above  example  the 
program  would  ignore  the  data  beginning  with  CF.  If  the 
READ  statement  had  contained  5  numbers,  only  the 
alphabetic  characters  would  be  ignored. 
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4*  2*  Output  Provisions 

If  the  user  cares  only  about  the  numbers  and  not  the 
format?  he  can  obtain  results  simply  by  a  statement 
PRINT  COLS  1  ?  2  ?  7  >  9  ?  etc .  The  columns  can  be  printed  in 
any  order  or  even  repeated  on  a  page.  Any  number  of 
print  statements  can  be  given.  Each  is  subject  only  to 
certain  limitations  given  below*  Figure  4-3  shows  a  page 
resulting  from  a  PRINT  statement  which  employs  the 
built-in  format.  The  instruction  FIXED  6  will  provide 
results  to  six  decimals  (see  figure  4-4). 

Four  options  are  available  for  controlling  the 
format  of  the  printout.  Three  of  these  are  selected  by  a 
statement  which  precedes  the  PRINT  instruction.  These 
instructions?  which  start  with  the  words  FIXED? 
FLOATING?  or  FORMAT?  are  discussed  in  section  3. 2  and 
3*3*  If  none  of  the  above  words  precede  the  PRINT 
instruction?  the  program  will  print  the  results  in 
floating  format  with  one  number  to  the  left  of  the 
decimal  and  6  to  the  right?  followed  by  a  suitable 
exponent?  for  example  3.  782797E-02-  In  this  printing 
mode  a  single  page  will  accommodate  a  maximum  of  8 
columns.  Since  the  format  also  controls  the  punching  of 
results?  this  built-in  mode  will  accommodate  only  four 
columns  of  punched  results  (only  72  columns  are 
available  for  punching  on  one  card). 

The  ability  of  OMNITAB  to  accept  a  FORMAT  statement 
gives  the  OMNITAB  user  the  capability  of  formating  his 
results  in  as  sophisticated  a  manner  as  any  programmer 
using  FORTRAN.  We  illustrate  in  this  section  and  in 
succeeding  chapters  a  variety  of  formats  but  suggest 
that  the  novice  put  off  the  use  of  formats  until  he  has 
gained  some  confidence  in  the  use  of  the  program- 
Alternatively  we  suggest  that  until  one  has  mastered  the 
format  statement? he  ask  for  an  ordinary  PRINT  (either  in 
fixed  field  or  floating)  prior  to  using  the  FPRINT  so  as 
to  insure  some  output  even  if  the  formated  output  gets 
mixed  up. 

When  the  built-in  format  is  used?  the  column 
headings  are  centered  over  the  columns.  If  no  headings 
are  supplied?  the  program  automatically  prints  the 
appropriate  column  numbers  as  headings.  This  is 
illustrated  in  one  or  more  of  the  sample  problems*  With 
a  little  experience?  it  is  often  possible  to  get 
headings  centered  properly  even  when  the  printing  mode 
is  controlled  by  the  instructions  FIXED  or  FLOATING. 

Before  going  on  to  the  other  output  instructions?  it 
should  be  emphasized  that  each  PRINT  or  FPRINT  (also 
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PUNCH  and  FPUNCH)  instruction  gives  a  column  whose 
length  is  from  1  to  101  lines  (cards)  long.  Since  50 
lines  of  results  are  provided  on  a  page,  a  column  of  100 
rows  will  extend  over  two  pages.  Each  page  will  carry 
the  word  OMNITAB  and  such  other  information  as  was 
supplied  on  the  OMNITAB  card.  The  program  expects  a  date 
on  this  card.  If  it  does  not  find  it  it  prints  out  a 
statement  to  that  effect  (see  figure  4—9).  We  cannot 
overemphasize  the  importance  of  a  date  on  this  card 
since  it  will  be  carried  on  every  page  of  the  printout. 
Below  this  line  provision  is  made  for  two  lines  for 
titles-  TITLE 1  and  TITLE3  run  contiguously  across  119 
type  bars  on  the  first  of  these  and  TITLE 2,  and  TITLE4 
follow  on  the  next  line.  The  next  line  accommodates 
column  headings  which  are  entered  as  desired.  Failure  to 
supply  column  headings  will  cause  the  column  numbers 
themselves  to  be  used  as  headings* 

When  a  FORMAT  instruction  is  used,  it  is  not 
possible  to  provide  headings  over  the  columns  via  the 
HEAD  instruction.  The  instructions  FPRINT  and  FPUNCH 
must  be  used  instead  of  PRINT  and  PUNCH  in  order  that 
the  special  FORMAT  instruction  prevail.  Since  TITLE2  and 
TITLE 4  extend  over  the  last  119  type  bars  it  is  possible 
to  use  these  to  distribute  headings  over  the  columns 
when  a  format  statement  controls  the  printout. 

Space  is  available  at  the  end  of  each  PRINT  for  a 
one  line  footnote  which  information  is  read  from  a  card 
carrying  the  word  FOOTNOTE  followed  by  4  spaces.  The 
single  entry  of  a  footnote  causes  the  same  footnote  to 
be  printed  after  every  PRINT •  To  remove  it,  it  is  neces¬ 
sary  to  read  in  a  card  which  is  blank  except  for  the  word 
FOOTNOTE.  The  footnote  can  be  updated  at  will. 

If  a  printout  is  shorter  than  50  lines,  an 
appropriate  number  of  lines  of  text  can  be  placed  below 
it  via  the  NOTE  instruction.  The  use  of  this  provision 
is  illustrated  in  some  of  the  illustrative  problems  and 
especially  in  chapter  11. 


The  TPRINT  instruction  obeys  either  the  built-in 
format  or  a  specified  format  but  does  not  start  a  new 
page.  Its  principal  use  is  in  mixing  text  with  computer 
results.  Applications  of  this  command  are  to  be  found  in 
chapter  11. 
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PAGE  1  OMNITAB  PROBLEM  3  -  2 

THERMAL  FUNCTIONS 
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in  this  format 


PAGE  4  CMNIT £ B  PROBLEM  3-12 

X  TO  THE  T  POWER 


X  T  +  -1/3  T  +  -2/7  T  +  —1/4 


36  • 000000 

0.302857 

0.359210 

0.408248 

37.000000 

0.300104 

0.356409 

0.405461 

38.000000 

0.297448 

0.353704 

0.402767 

39.000000 

0.294883 

0.351089 

0.400160 

40.000000 

0.292405 

0.348558 

0.397635 

41.000000 

0.290009 

0.346108 

0.395188 

42.000000 

0.287688 

0.343733 

0.392815 

43.000000 

0.285441 

0.341430 

0.390511 

44.000000 

0.283262 

0.339195 

0.388273 

45.000000 

0.281148 

0.337024 

0.386097 

46.000000 

0.279096 

0.334914 

0.383982 

47.000000 

0.277102 

0.332863 

0.381923 

48.000000 

0.275164 

0.330866 

0.379918 

49.000000 

0.273279 

0.328923 

0.377964 

50.000000 

0.271445 

0.327030 

0.376060 

55.000000 

0.262957 

0.318245 

0.367206 

60.000000 

0.255440 

0.310431 

0.359304 

65.000000 

0.248715 

0.303412 

0.352186 

70.000000 

0.242646 

0.297055 

0.345721 

75.000000 

0.237130 

0.291257 

0.339809 

80.000000 

0.232083 

0.285936 

0.334370 

85.000000 

0.227440 

0.281025 

0.329341 

90.000000 

0.223148 

0.276473 

0.324668 

95.000000 

0.219162 

0.272235 

0.320309 

100.000000 

0.215447 

0.268275 

0.316228 

Figure  4— 4»  Typical  output  in  fixed  point  resulting 
from  the  instruction  FIXED  WITH  6  DECIMALS.  A  total  of 
eight  columns  can  be  accommodated  here*  The  headings 
could  have  been  centered  better  by  moving  them  to  the 
extreme  right  of  the  12  allotted  spaces* 


82 


PAGE  1 

0MN  IT  AB 

PROBLEM 

3-5 

RECIPRCCAL 

TABLE,  1000. /T  -  T 

=  100.0  - 

200.0  BY 

0.  1 

100. 

10.00000 

9.99001 

9.98004 

9.97009 

9.96016 

101. 

9.90099 

9.89120 

9.88142 

9.87167 

9.86193 

102. 

9.80392 

9.79432 

9.78474 

9.77517 

9.76563 

103. 

9.70874 

9.69932 

9.68992 

9.68054 

9.67118 

104  • 

9.61538 

9.60615 

9.59693 

9.58773 

9.57854 

105. 

9.52381 

9.51475 

9.50570 

9.49668 

9.48767 

106. 

9.43396 

9.42507 

9.41620 

9.40734 

9.39850 

107. 

9.34579 

9.33707 

9.32836 

9.31966 

9.31099 

108. 

9.25926 

9.25069 

9.24214 

9.23361 

9.22509 

109. 

9.17431 

9.16590 

9.15751 

9.14913 

9. 14077 

110. 

9.09091 

9.08265 

9.07441 

9.06618 

9.05797 

111. 

9.00901 

9.00090 

8.99281 

8.98473 

8.97666 

112. 

8.92857 

8.92061 

8.91266 

8.90472 

8.89680 

113. 

8.84956 

8.84173 

8.83392 

8.82613 

8. 81834 

114. 

8.77193 

8.76424 

8.75657 

8.74891 

8.74126 

115. 

8.69565 

8.68810 

8.68056 

8.67303 

8.66551 

116. 

8.62069 

8.61326 

8.60585 

8.59845 

8.59107 

117. 

8.54701 

8.53971 

8.53242 

8.52515 

8.51789 

118. 

8.47458 

8.46740 

8.46024 

8.45309 

8.44595 

119. 

8.40336 

8.39631 

8.38926 

8.38223 

8.37521 

120. 

8.33333 

8.32639 

8.31947 

8.31255 

8.30565 

121. 

8.26446 

8.25764 

8.25083 

8.24402 

8.23723 

1 22. 

8.19672 

8.19001 

8. 18331 

8.17661 

8. 16993 

123. 

8.13008 

8.12348 

8. 11688 

8.11030 

8. 10373 

124. 

8.06452 

8.05802 

8.05153 

8.04505 

8.03859 

125. 

8.00000 

7.99361 

7.98722 

7.98085 

7.97448 

126. 

7.93651 

7.93021 

7.92393 

7.91766 

7.91139 

127. 

7.87402 

7.86782 

7.86164 

7.85546 

7.84929 

128. 

7.81250 

7.80640 

7.80031 

7.79423 

7.78816 

129. 

7.75194 

7.74593 

7.73994 

7.73395 

7.  72798 

130. 

7.69231 

7.68640 

7.68049 

7.67460 

7.66871 

131. 

7.63359 

7.62777 

7.62195 

7.61615 

7.61035 

132. 

7.57576 

7.57002 

7.56430 

7.55858 

7.55287 

133. 

7.51880 

7.51315 

7.50751 

7.50188 

7.49625 

134. 

7.46269 

7.45712 

7.45156 

7.44602 

7.44048 

135. 

7.40741 

7.40192 

7.39645 

7.39098 

7.38552 

136. 

7.35294 

7.34754 

7.34214 

7.33676 

7.33138 

Figure  4— 5*  Output  resulting  from  the  statement* 
FORMAT  ( 1H  F 9* 0> 10F10* 5)  •  Note  the  absence  of  headings* 
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PAGE  5  OMNITAB  1-1 

CF  A-X  EM I SS I  ON  SPECTRUM  1-1  BAND  HEAD  AT  2308.674 


0.  0. 

1.  -43389.73 

2.  43386.27 


0. 

3.46 

2.70 


0. 

0. 

0.76 


43393.66 

43393.26 

43393.26 


*0.40 

0. 

0.40 


22.  -43452.28 

23.  -43462.15 

24.  43472.64 

25.  43483.82 

26.  43495.56 


9.45 

9.87 

10.49 

11.18 

11.74 

12.37 


0.42 

0.62 

0.69 

0.56 

0.63 


43526.01 

43539.23 

43553.06 

43567.47 

43582.58 


12.62 

13.22 

13.83 

14.41 

15.11 

15.69 


0. 

0. 

0. 


0.60 

0.61 

0.58 

0.70 

0.58 


Figure  4—6  Lefthand  portion  of  a  page  resulting  from 
the  instructions: 


FORMAT  ( 1H  F3. 0, 4( Fll. 2, F13. 2) , 2F10. 2/lH  F21. 2, 3F24. 2) 
F PRINT  1,  2,  26,  3,  27,  4,  28,  5,  29,  10,  11,  18,  19,  20,  21 
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PAGE  1  OMMTAB  FORMAT  TEST 
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Figure  4—7.  Results  from  an  experiment  designed  to 
various  format  provisions  in  OMNITAB. 
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NOSUMM 

GENERA1.  1.  10.  10.  100.  100.  1000.  1 

F0RMAT(lF9.0»lE12.3»lPlE12.3,lF9.0,0PlF9.0i3PlE12.3*iF11.0tlPlF9.0) 
FPRINT1  1111111 
STOP 


4*  3*  Summary  Calculations 


Recognizing  that?  for  the  types  of  problems  which 
OMNITAB  is  designed  to  handle?  the  major  time  delay  is 
the  time  between  the  preparation  of  the  long-hand 
instructions  and  their  actual  entry  into  the  machine?  we 
have  incorporated  a  number  of  automatic  operations*  One 
example  is  the  summary  (see  figure  4—8)  which  is 
computed  and  printed  for  each  of  the  columns  called  for 
in  any  of  the  PRINT  statements*  The  summary  contains  ten 
numbers  which  are  printed  in  the  following  order!  the 
number  of  values  in  the  column?  the  sum  of  the  values? 
the  sum  of  the  absolute  values?  the  sum  of  squares  of 
values?  the  average  value?  the  average  of  the  absolute 
values?  the  minumum  value?  the  maximum  value?  the  RMS 
value?  and  the  definite  integral  of  the  column*  The  last 
of  these  is  meaningful  only  if  the  values  are  tabulated 
at  uniform  intervals  of  the  argument?  which  is  taken  to 
be  in  column  1?  and  if  the  interval  of  tabulation  is 
close  enough  for  four-point  Lagrangian  integration. 

The  summary  feature  is  automatic  unless  it  is 
suppressed  by  the  instruction  NOSUMMARY?  in  which  case 
it  can  be  reactivated  again  by  the  instruction 
SUMMARIZE. 
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PAGE  2  OMNITAB  PROBLEM.  3 

OMNITAB  SUMMARY - 

COLUMN  1  COLUMN  10 

NUMBER  OF  VALUES 

20  20 
SUM  OF  VALUES 

7.363000E  03  1.900000E  03 

SUM  OF  ABSOLUTE  VALUES 

7.363000E  03  1.900000E  03 

SUM  OF  SQUARES  OF  VALUES 

2.777188E  06  2.470000E  05 

AVERAGE  OF  VALUES 

3.681500E  02  9.500000E  01 

AVERAGE  OF  ABSOLUTE  VALUES 
3.681500E  02  9.500000E  01 


MINIMUM  VALUE 
2.731500E  02 
MAXIMUM  VALUE 
4.631500E  02 
RMS  VALUE 

3 • 726384E  02 


1 . 900000 E  02 


1. 111306E  02 


COLUMN  8 


20 


2.05  1364E  05 


2.051364E  05 


4.167323E  09 


1 . 025682E  04 


1 . 025682E  04 


COLUMN 


3 . 573898E  02 


3. 394549E  04 


20 


2.699164E  02 


2.699164E  02 


7 . 2 14894E  03 


1.349582E  01 


1.349582E  01 


4 . 702497E-0 1 


4.466512E  01 


1.899328E  01 


1 • 443489E  04 

INTEGRAL  ASSUMING  INDEPENDENT  VARIABLE  IS  IN  COL  1  AND  UNIFORMLY  SPACED 
6. 994850E  04  1.805000E  04  1.875973E  06  2.468385E  03 


Figure  4-8.  This  output  is  printed  for  each  column  in 
the  PRINT  instruction.  It  may  be  suppressed  by  the 
instruction  NOSUMMARY,  and  reinstated  again  with  the 
word  SUMMARIZE. 
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4*4.  Diagnostic  Features 


A  general-purpose  computer  program  places 
requirements  on  the  programmer  to  provide  for  handling 
overflow?  and  other  disruptive  situations?  which  may 
arise  in  the  course  of  a  calculation.  The  general 
philosophy  in  OMNITAB  has  been  to  ensure  that  underflow 
and  certain  other  conditions  do  not  disrupt  the 
calculations  wherever  feasible.  When  such  conditions 
occur?  appropriate  action  is  taken  and  a  diagnostic 
statement  is  supplied.  The  appropriate  action  may  be  to 
set  a  very  small  number  to  zero  and  to  proceed?  or  to 
truncate  to  an  integer  the  exponent  of  a  negative 
number.  Some  of  these  render  subsequent  operations 
meaningless.  In  that  case?  the  program  goes  on  to  the 
next  problem.  In  other  instances?  the  computations  are 
allowed  to  proceed  after  a  diagnostic  statement  is 
printed. 

The  concept  of  a  general-purpose  program  rests  in 
some  measure  on  the  assumption  that  the  user?  though  not 
a  programmer?  is  familiar  with  the  behavior  of  the 
mathematical  functions  he  is  using  or  trying  to  compute. 
Thus?  we  would  expect  him  to  know  that  Gamma  functions 
for  large  positive  numbers  are  extremely  large?  and  that 
they  are  infinite  for  negative  integers?  that  the 
inverse  trigonometric  functions  have  limiting  values  or 
infinite  branches?  etc.  Nevertheless?  diagnostic 

features  are  incorporated  which  will  call  some  of  these 
singularities  to  his  attention  if  he  has  overlooked 
them.  Such  diagnostic  statements  are?  however?  no 

substitute  for  sound  mathematical  analysis  which  is 
necessary  to  avoid  the  more  serious  pitfalls  of 

numerical  computations*0  The  characteristics  and? 

perhaps?  limitations  of  the  more  important  subroutines 
in  OMNITAB  have  been  given  in  the  discussion  of  the 
functions  in  earlier  sections.  Typical  diagnostic 

statements  are  illustrated  in  figures  which  follow  and 
more  fully  in  a  later  section. 


Stegun?  I.  E. ?  Abramowitz?  M.  Pitfalls  in 
Computations?  J.  Soc*  Indust*  Appl.  Math.  4?  207219? 
1956. 

Abramowitz?  M.  ?  On  the  Practical  Evaluation  of 
Integrals?  J*  Soc.  Indust*  Appl.  Math.  2?  2035?  1954. 
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*»«***»*»***»«««*«*«»&*********«»*«« ft «*«***«» 
*  * 

*  » 

*  * 

*  £- 

♦  * 

*  * 

*  YOU  FORGOT  THE  DATE  ON  THE  OMNITAB  CARO  * 

*  -  * 

*  * 

*  *• 

«  « 

*  * 

*  * 


Figure  4—9  An  automatic  reminder  that  the  date  was 
omitted  from  the  OMNITAB  card.  This  is  printed  on 
the  first  page  of  the  output. 
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Figure  4“10*  A  typical  printout  of  the  OMNITAB 
instruction  with  diagnostic  statements*  In  the  first 
instance,  the  storage  location  was  omitted,  in  the 
second,  a  zero  was  punched  instead  of  an  "o"  in  the  word 
LOGE* 
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Figure  4— 11 •  More  error  diagnostics*  The  underflow 
indicated  that  one  or  more  numbers  are  less  than  1*E— 38* 
This  is  an  example  of  a  diagnostic  which  does  not  halt 
the  calculations*  Because  the  asterisk  plays  a  special 
role  in  designating  fundamental  constants  (see  chapter 
10) )  it  must  not  be  used  elsewhere*  In  this  case  the 
calculations  are  halted* 
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4* 5*  Graphical  Presentation  of  Data 


In  this  section  we  illustrate  a  variety  of  uses  to 
which  the  plot  routines  in  OMNITAB  have  been  put  in 
presenting  data  and  computed  results  in  a  dramatic  and 
useful  way*  The  main  routine  provides  a  plot  extending 
over  100  type  bars  (approximately  10  inches)  for  the 
abscissa  and  50  ordinates  spaced  six  to  the  inch*  The 
program  ordinarily  will  plot  5  functions  against  a 
single  variable*  The  instructions  for  plotting,  given  in 
section  3*2,  indicate  the  priority  of  symbols  used* 

The  plot  routine  accepts  scale  limits  from  the  PLOT 
instructions*  If  these  are  missing  it  computes  scale 
limits  from  the  data  to  be  plotted*  Ordinarily  if  two  or 
more  functions  are  to  be  plotted  together  they  must  all 
be  tabulated  for  a  single  set  of  arguments  (x  values)* 
If  the  tables  are  so  short  that  they  can  be  placed  under 
one  another  within  the  101  rows  available,  it  is 
possible  to  plot  a  number  of  functions  tabulated  at 
noncoincident  values  of  x* 

Returning  once  more  to  many  functions  tabulated  for 
a  single  set  of  arguments  (x)  and  assuming  again  that 
the  tables  are  short  enough  to  be  placed  under  one 
another  on  the  101  row  work-sheet,  it  is  possible  to 
plot  more  than  5  functions  at  a  time*  Under  these 
circumstances  there  is  no  distinction  made  via  a  plot 
symbol  between  the  functions  in  a  single  column.  If,  as 
is  often  the  case,  the  functions  are  quite  distinct  the 
use  of  identical  plot  symbols  poses  no  problem*  The 
following  figures  will  illustrate  the  variety  of 
plotting  available  through  imaginative  use  of  the 
program. 

If  the  scale  limits  are  known  in  advance  of  the  run, 
and  are  supplied,  the  plot  scales  will  be  in  terms  of 
round  numbers*  To  insure  against  an  inadvertent  slip  or 
a  wrong  estimate  of  the  range  of  the  numbers,  it  is  wise 
to  make  two  plots;  one  without  scale  limits  and  one 
with*  In  such  a  case  the  first  plot  will  permit  the 
correction  of  a  bad  estimate*  In  the  examples  which 
follow  it  will  be  obvious  also  how  the  values  in  one 
function  may  set  the  range  so  as  to  lose  information  on 
others.  In  such  a  case  the  only  alternative  is  to  plot 
them  separately  so  that  each  has  its  maximum  scale* 

It  will  be  obvious  from  the  plots  given  that  the 
resolution  of  l/ 6  inch  vertically  and  1/ 10  inch 
horizontally  is  not  good  enough  for  some  purposes* 
Another  plot  routine  is  available  in  OMNITAB  which,  when 
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coupled  with  an  off-line  407  lister  having  a  special  40 
lines  to  the  inch  gear,  gives  much  higher  resolution. 
The  instruction  SPLOT,  used  in  the  same  way  as  PLOT, 
results  in  a  plot  whose  ordinate  is  divided  into  40  to 
the  inch  (l0n  total).  It  can  handle  10  functions  all 
tabulated  for  a  single  set  of  arguments*  Periods  are 
used  for  the  points  on  each  of  the  functions.  The  SPLOT 
instruction,  oddly  enough,  does  not  produce  a  plot 
directly  as  does  the  PLOT  instruction.  Instead,  it 
punches  a  deck  of  cards  (approximately  400)  containing 
periods  punched  in  one  or  more  of  sixty  columns 
corresponding  to  60  type  bars.  It  is  these  cards  which, 
when  run  through  a  lister  (407)  with  an  appropriate 
forms  tractor,  produce  the  plots  shown  in  figures  4—19 
and  4—20.  These  plots  are  especially  good  since  the 
functions  were  computed  at  uniform  intervals  of  the 
argument  so  that  the  position  along  the  x  axis  is  exact. 
The  only  unevenness  is  in  the  vertical  position. 

The  same  cards  when  run  through  a  normal  lister, 
which  prints  six  lines  per  inch,  produce  the  effect  of 
expanding  the  vertical  scale  of  the  plot  somewhat  over  7 
to  1.  The  result  of  such  a  listing  is  shown  in  part  in 
figure  4-18*  Although  it  is  obviously  no  substitute  for 
the  earlier  plot  it  is  still  quite  useful  in  many 
instances  where  graphical  interpolation  is  either  useful 
or  necessary.  It  is  because  of  this  last  application 
that  we  have  included  this  discussion  of  the  instruction 
SPLOT. 
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PAGE  43 


OMNITAB 


4/6/63 

ELECT  ENERGY  CALC  RUN  30  33  E  ( 

ABSCISSA  -  COLUMN  15 
ORDINATES  -  COLUMN  17  {.), 


0.22345E  08+ 


0.25000 E-QOS.** 

+ - 

0.30422E  03 


0.37668E  03 


0.44914E  03 


Figure  4-12*  An  illustration  of  the  use  of  the  PLOT 
instruction  to  find  gross  errors* 
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PAGE  I  OMNITAB  CODE  CHECK  OF  BESSEL  FUNCTIONS 


Figure  4—13  Plot  of  certain  Bessel  functions  (scale 
limits  not  supplied). 
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Figure  4-14.  Comparison  of  deviations  (scale  limits  not 
supplied).  The  note  at  the  bottom  was  supplied  via  a 
NOTE  instruction. 
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Figure 
from  the 


4—15*  Plot  of  the  deviations  of  a  set  of  data 
least-squares  fit  (scale  limits  not  supplied). 
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Figure  4—16.  Plot  of  certain  trigonometric  functions 
(scale  limits  supplied). 
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Figure  4-17*  Typical  plot  of  a 
closely  as  to  dramatize  the 
resolution  (one  sixth  of  an  inch) 


function  tabulated  so 
effect  of  the  coarse 
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L490IE-07* 


Figure  4—18*  A  portion  of  a  plot  obtained  by  listing 
the  cards,  resulting  from  the  SPLOT  instruction,  on  an 
ordinary  lister  six  lines  to  the  inch.  The  vertical 
scale  is  logarithmic. 


100 


MINIMUM 

MINIMUM 


.  . . :•••■  . 

*•••••  •• 


i  : 


x  =  — 0 • 4000000E  01  MAXIMUM  X  = 
Y  =  0.1000000E  01  MAXIMUM  Y  = 


0.8000000E  01 
O.500000OE  01 


Figure  4—19.  A  plot  obtained  by  listing  the  cards, 
resulting  from  SPLOT,  on  a  lister  having  a  special  forms 
tractor  ( 40  to  the  inch) • 
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Figure  4-20.  Another  SPLOT  product 
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Figure  4—21*  Statistical  Control  Chart  Produced  by 
the  PLOT  instruction. 
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4*6*  Self  Teaching 


Experience  with  the  program  has  shown  that  it  is 
many  things  to  many  people?  in  addition  to  being  a 
convenient  computing  tool.  For  some  it  is  a  teacher?  for 
others  it  may  be  a  task  master?  for  most  it  is  an 
efficient  hand  maiden. 

The  mathematical  and  statistical  repertoire  make  it 
a  useful  tool  in  university  and  even  secondary 
instruction.  It  is  our  view  that  a  system  of  this  kind 
—  based  as  it  is  largely  on  ordinarily  obvious  English 
words  —  can  be  used  effectively  in  assisting  the  teacher 
of  mathematics  science?  psychology?  economics?  etc*  in 
giving  the  student  considerable  first-hand  experience  in 
analyzing  in  depth?  problems  involving  computations  too 
lengthy  to  perform  by  hand*  Such  computer  assisted 
instruction  will  be  more  feasible  in  the  future  when  the 
development  of  inexpensive  remote  stations  and  time 
sharing  systems  will  make  computer  time  available  and 
economical  for  groups  who  could  not  otherwise  afford  a 
computer.  This  application  of  OMNITAB  has  been  discussed 
by  one  of  the  authors  elsewhere.0 

Quite  apart  from  its  application  to  formal  pedagogy? 
OMNITAB  can?  if  used  imaginatively?  be  an  effective 
teacher?  and  it  is  our  purpose  here  to  encourage  the 
reader  to  use  the  program  as  a  teacher.  Such  use  might 
be  divided  into  two  main  categories.  We  treat  first  the 
resolution  of  the  many  questions  —  some  trivial?  some 
serious  -  which  may  arise  either  in  the  reading  of  this 
text  or  in  the  course  of  using  the  program.  While  it  is 
likely  that  many  of  the  important  questions  will  already 
have  been  anticipated  and  answered  somewhere  in  the 
text?  answers  to  all  may  not  be  found.  We  suggest 
strongly  that  the  reader  let  the  program  answer  his 
questions?  and  hasten  to  say  that  this  will  probably  be 
more  efficient?  less  time  consuming  and?  in  some 
instances?  more  exciting  than  digging  the  answers  out  of 
the  book  or  asking  the  experts.  Furthermore?  if  the 
questions  are  placed  at  the  end  of  a  productive  problem? 
such  education  can  be  achieved  virtually  free  of  charge 
because  the  few  extra  commands  will  require  only  a  few 
microseconds  for  execution. 


Hilsenrath?  J?.  Computer  Assisted  Instruction  in 
Mathematics?  a  talk  presented  at  the  May  2?  1964  meeting 
of  the  Maryland  Section?  Mathematical  Association  of 
America. 
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What  is  suggested  may  be  better  appreciated  after 
considering  the  following  examples* 

a*  Nothing  is  mentioned  in  this  text  concerning  the 
ability  of  the  program  to  use  negative  arguments  in  the 
Laguerre  polynomials*  In  fact,  since  these  polynomials 
are  not  orthogonal  for  negative  arguments,  the  topic  is 
not  discussed  in  textbooks*  Whether  or  not  OMNITAB  can 
be  handled  L  (-x)  can  be  answered  by  generating  a  few 
negative  arguments  and  using  the  LSUB  instruction  on 
them*  The  result  gives  values  which  show  the  answer  to 
be  yes* 

b*  An  excellent  example  of  how  much  can  be  learned 
from  an  OMNITAB  experiment  is  afforded  by  figure  4—7 
which  gives  the  printout  of  a  set  of  numbers  in  various 
formats.  This  problem  was  especially  well  designed  since 
it  shows  up  some  of  the  less  well  known  and  often 
troublesome  features  characteristic  of  the  format 
provision  under  FORTRAN* 

c*  Finally  if  one  would  be  inclined  to  check  on  the 
verity  of  a  particular  statement  in  this  Handbook 
concerning  ranges  or  limits  to  see  if  they  are  the 
ultimate,  one  need  only  exceed  the  limit  in  an 
experiment  and  see*  We  can  guarantee  that  in  some 
instances  the  program  will  respond  with  a  surprise  in 
spite  of  the  printed  word* 

The  second  way  in  which  the  program  can  be  made  to 
serve  as  a  teacher  is  to  use  its  repertoire  of  numerical 
mathematical  methods  to  assist  in  problem  analysis 
(either  before  or  after  the  fact)*  Let  us  be  more 
specific*  Suppose  a  decision  has  been  made  to  use  a 
5— point  interpolation  on  a  set  of  data  on  some  basis*  At 
the  very  least,  after  the  table  has  been  computed  one 
additional  instruction  (DIFFER)  used  on  the  answer  will 
provide  (at  almost  no  cost)  the  first  six  finite 
differences.  This  will  document  the  wisdom  (or  lack  of 
it)  in  choosing  the  5— point  approximation.  If  the  choice 
was  wise,  the  evidence  is  there*  If  it  turns  out  to  have 
been  unfortunate  it  would  be  much  more  helpful  if 
differences  had  been  taken  of  the  original  table  as 
well. 

Another  example  of  the  assistance  which  the  program 
can  render  in  the  matter  of  problem  analysis  is  afforded 
by  considering  the  evaluation  of  the  following  10 
integrals* 


o 


f or  a  =  2«,  1.,  0.6(0. 1)0-1,  0-05,  0.01 
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Important  considerations  in  the  analysis  of  problems 
of  this  type  are  the  mesh  size  for  integration  and  how 
far  the  integration  should  be  carried  to  yield  a 
practical?  not  mathematical ?  infinity*  Figure  4—22  shows 
how  the  second  question  is  answered  for  the  10  integrals 
in  a  single  pass  through  the  machine*  In  this  pass  we 
simply  compute  the  integrand  for  each  of  the  given 
values  of  a  for  101  values  of  r  between  0*  and  100* 
This  helps  to  determine  the  magnitude  of  the  integrands? 
the  value  and  location  of  the  maximum  integrand  and  the 
value  of  r,  if  any?  for  which  the  integrand  becomes 
negligible*  It  is  easy  to  see  from  figure  4-22  that  the 
range  over  which  the  integration  must  be  carried  out 
depends  strongly  of  the  value  of  %  \  that  for  *  =  2*  ? 
the  integral  is  practically  zero?  and  for  &  =  0*  01?  the 
integrands  are  so  large  as  to  put  in  question  the 
physical  significance  of  the  integral  for  this  case* 

Having  settled  upon  a  set  of  values  for  the  upper 
integration  limit  one  needs  next  to  consider  a  suitable 
mesh*  In  the  OMNITAB  program  there  is?  in  this  case?  no 
need  to  look  for  sophisticated  integration  techniques* 
It  is  by  far  simpler  to  generate  100  integrands 
uniformly  spaced  within  the  integration  interval*  In  the 
problem  at  hand  101  values  were  chosen  arbitrarily.  The 
integrands  were  multiplied  by  the  interval  and  summed* 

It  should  be  obvious  from  figure  4—22  that  for  the 
first  four  integrals  accurate  results  would  have  been 
obtained  by  computing  integrands  uniformly  for  101 
values  for  0*  to  10*  In  these  instances  it  was  really 
not  necessary  to  come  off  the  machine*  But  this  is 
hindsight*  A  computer  technique  must  be  programmed  in 
such  a  way  as  to  anticipate  the  need  for  refining  the 
mesh  or  to  provide  enough  information  with  the  answers 
to  permit  the  user  to  judge  the  adequacy  of  the  mesh* 

The  evaluation  of  a  single  integral  can  often  be 
achieved  in  one  pass  through  the  OMNITAB  program*  If  use 
is  made  of  the  repeat  mode?  the  instructions  for 
computing  the  integrands  can  be  stored  and  used  two  or 
more  times  on  a  successively  finer  mesh  of  points* 
Results  can  be  printed  out  for  various  meshes* 
Alternatively  use  can  be  made  of  the  COMPARE  instruction 
which?  together  with  the  REPEAT  instruction  will  allow 
the  program  to  refine  the  mesh  until  a  designated 
tolerance  is  satisfied*  Such  use  of  the  program  should 
be  postponed?  however?  until  the  reader  has  had  more 
experience  with  the  ordinary  and  reneat  modes  of 
operations. 


106 


INT 

EGRAL  OF  EXP- 

ACUBEXCUBE  X  T  05 

EXP-l/X  0. 

(  l  . ) 1 99 .  INTERVA 

COLUMN  l 

COLUMN  21 

COLUMN  22 

COLUMN  23 

COLUMN  24 

COLUMN  25 

0. 

o.  «*-  '• 

o. 

0.  <*-' 

0.  *•-  *•+ 

1 .000000E 

00 

1.234098E-04 

1  •  353353E-0 1 

2.964134E-01 

3.246525E-01 

3 . 4  5072  7E - 01 

2 .000000E 

00 

(3.  ii 

1  6.510988E-03 

3 . 447799E  00 

7.140165E  00 

l  .  163172E  01 

3 . 000000E 

00 

ir. — - 

3.2725?3F-10 

5.  105478E-01 

5 . 9 5  79 60 E  00 

3.093005E  01 

A . 000000E 

00 

0. 

ll .279030E-25I 

7.907513E-04 

2. 67528 8 E -01 

1.326955E  01 

5  *0000006 

00 

0. 

0. 

4 . 808  84 1 E — 09 

4.1 89291E-04 

8.582934E-01 

6 . OOOOOOE 

00 

0. 

0. 

J.596953E-W 

1.2371 52E-08 

6.526607E-03 

7 . 000000E 

00 

0. 

0. 

19. 71505  OE-291 

3 . 492004E- l 5 

4.263991E-06 

8.000U00E 

00 

0. 

0. 

V: — -  — 

l . 69903  7E-  10 

9. OOOOOOE 

00 

0. 

0. 

0. 

rr. — — - 1 

2.887477E-16 

1 .  OCOCOOE 

01 

0. 

0. 

0. 

0. 

[l.45l203E-23 

1 . lOOOOOE 

01 

0. 

0. 

c. 

0. 

V. — 7^ — 

INTEGRAL  OF  EXP-ACUBEXCUBE  XT05  EXP-l/X  0.(1.)  199.  INTERVA 


COLUMN  l 

COLUMN  26 

COLUMN  27 

COLUMN  28 

COLUMN  29 

COLUMN  30 

0. 

0.  oi.--o.-L 

/ 

1. OOOOOOE 

00 

3.580796E-01 

3.649481E-01 

3.6751  17E- 

-01 

3 . 678335E- 

-01 

3.678791E- 

-01 

2. OOOOOOE 

00 

1  •  563850E  01 

1.820572E  01 

1.925433E 

01 

1 . 938958E 

01 

1.940883E 

01 

3. OOOOOOE 

00 

8 . 399256E  01 

1 . 40292  3E  02 

1.694788E 

02 

1.735305E 

02 

1.741124E 

02 

4. OOOOOOE 

00 

1.4  16660E  02 

4. 779336E  02 

7.480515E 

02 

7.911 375E 

02 

7.974410E 

02 

5. OOOOOOE 

00 

8. 7  54  820E  01 

9.412320E  02 

2.257898E 

03 

2.518867E 

03 

2.558214E 

03 

6. OOOOOOE 

00 

1 . 93005 l £  01 

1 .  169265E  03 

5 . 303545E 

03 

6. 406899E 

03 

6.580820E 

03 

7. OOOOOOE 

00 

1.384993E  00 

9 . 370097F  02 

1 .033916E 

04 

1. 395815E 

04 

l  .456462E 

04 

8. OOOOOOE 

00 

2.867  324E-02 

4.81 1638E  02 

1.733023E 

04 

2.712491E 

04 

2.890286E 

04 

9. OOOOOOE 

00 

1.495342E-04 

1.54936 IE  02 

2 . 548924E 

04 

4.823725E 

04 

5.280086E 

04 

1. OOOOOOE 

01 

l  .  700669E -07 

3.035395E  01 

3.328711E 

04 

7.985162E 

04 

9.039330E 

04 

l. lOOOOOE 

01 

3. 632822E-  1  1 

3.492326E  00 

3 . 885404E 

04 

1.245163E 

05 

1 . 46  860  2  E 

05 

1.200000E 

01 

1.251054E-15 

2.270014E-01 

4 . 066  8  1  3  E 

04 

1 . 844622E 

05 

2.285412E 

05 

l . 300000E 

01 

5 . 9  A  8  369E-21 

8 . 00 l 1 23E-03 

3.820891E 

04 

2 .612410E 

05 

3.430484E 

05 

1.400000E 

01 

I'J.  J'i899  r  b-2  l\ 

1 .465505E-04 

3 . 220439E 

04 

3. 55349HE 

05 

4.993757E 

05 

1 . 500000E 

0 1 

•o! - 

1. 335219E-06 

2 . 4308576 

04 

4.6589216 

05 

7.080070E 

0> 

1 .600000E 

01 

0. 

5.787568E-09 

1 .639028E 

04 

5.903339E 

05 

9.810 1 95*- 

1 .700000E 

01 

0. 

1 . 140748E-11 

9.840323E 

03 

7.244139E 

05 

U3*^^rT 

07 

1 . 800000E 

01 

0. 

9.7677836-15 

5.241 191E 

03 

8.622524F 

05, 

^^^9tJ02  9E 

07 

1.900000E 

01 

0. 

3.469802E-18 

2. 466520E 

03 

9. 96683££. 

^5.612687E 

07 

v5 

6.416122E 

07 

2. OOOOOOE 

01 

0. 

4.881 946E-22 

1 .021 127E 

03 _ 

X^^rf27E 

04 

7. 305645E 

07 

2. lOOOOOE 

01 

0. 

2.596646E-26 

3.701820£ 

<-’<72960016 

04 

8. 287535E 

07 

2 . 200000E 

01 

0. 

|4.$8Z'57  7L-Tn 

1 

2 • 300000E 

01 

0. 

Vn — 

^^^PtTlE 

-20 

3. 350327E 

04 

9. 368019E 

07 

2 . 400000E 

01 

0. 

0. 

-<73222756 

-22 

2 .0503406 

04 

1 .055346E 

08 

2 • 500000E 

01 

0. 

8.509480E 

-25 

1.213125E 

04 

1  .  185032E 

08 

2 . 600000E 

01 

0. 

4.244214E 

-27 

6.935238E 

03 

1.326517E 

08 

2 • 700000E 

01 

0. 

n.&3Tu  I'lt 

3.828474E 

03 

1.480465E 

08 

2 • 800000E 

01 

0. 

0. 

0. 

2 . 0395  1 1  E 

03 

1.647542E 

08 

2 . 900000E 

01 

0. 

0. 

1.04782  IE 

03 

1.828418E 

08 

^ 

0. 

0. 

5. 188355E 

02 

2.023761E 

08 

0. 

0. 

0. 

2.474412E 

02 

2.234235E 

08 

01 

0. 

0. 

0. 

1  .  135871E 

02 

2.460497E 

08 

? 

* 


Figure  4-22«  Values  of  the  integrands  as  a  function 
oi  resulting  from  a  preliminary  problem  analysis  run 
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CMMTAB  7  /  20  /  64 

TITLE1  CALCULATION  OF  St C IMENTAT ION  COEFFICIENT  -  SCHACHMAN,  4-55 
T I TLE2T ABLE  CNE-TABULATION  OF  EXPERIMENTAL  DATA-PROGRAM  A-2,0.7  CERULOPL 


READ 

CCLS  1, 

2, 

3,  4,  5 

880 

1 

131. 

166 

139.127 

39.88 

880 

2 

131. 

166 

142.234 

52.88 

880 

3 

131. 

166 

143.237 

56.88 

880 

4 

131. 

166 

144.269 

60.88 

880 

5 

131. 

166 

145.204 

64.88 

HEAD 

CCL 

1/1 

PLATE  NO. 

HEAD 

CCL 

2/2 

FRAME  NO. 

HEAD 

CCL 

3/3 

MENISCUS 

HEAD 

CCL 

4/4 

X 

PEAK,  MM 

HEAD 

CCL 

5/5 

TIME,  MIN 

FCCTNOTE  X3C3  RUN  1/24/64  LOG  5-13  HAND  CALC  75-101  (S=7.3) 

PRINT  CCLS  1,  2,  3,  4,  5 

NOTE  1-THE  METHOD  IS  TAKEN  FROM  -  METHODS  IN  ENZ YMOLOG Y ,-4-55 
TITLE1  FIGURE  CNE  -  COL  4  (.)  (MEASUREMENT  OF  PEAK)  VS.  COL  5  (TIME) 

PLCT  CCL  4  AGAINST  COL  5 

NOTE  2-THE  POINTS  SHCULC  FORM  A  ST.  LINE  DEVIANT  PTS.  MAY  BE  ERRORS 
MULTIPLY  COL  5  BY  60.0,  STORE  IN  COL  6 
HEAD  CCL  6/6  TIME,  SEC. 

ACC  5.9780E04  TO  COL  7,  STORE  IN  COL  7  (THIS  INTRODUCES  THE  RPM  SPEED) 
HEAD  CCL  7/7  SPEED,  RPM 

MULTIPLY  COL  7  BY  0.10472,  STORE  IN  COL  8 
HEAD  CCL  8/8  OMEGA, /SEC. 

MULTIPLY  CCL  8  BY  COL  8,  STORE  IN  COL  9 
HE AO  CCL  9/  CMEGA ,  SG 

MULTIPLY  COL  4  BY  0.046860,  STORE  IN  COL  10 

HEAD  10/10  X  PEAK,  CM.  (PLATE  MEAS/CAMERA  LENS  MAGNIFICATION  CONSTANT) 
TITLE1  TABLE  TWO  -  INTERMEDIATE  CALCULATIONS 

T I TLE2PLATE  MEASUREMENTS  BY  TRAUTMAN-S  METHOD  ARE  CONVERTED  TO  REAL  MEAS 
FCCTNOTE  DATA  AND  CONSTANTS  ARE  ON  COLORED  CARDS,  FOR  EASE  OF  CHANGE 
NOSUMMARY 

PRINT  CCLS  6,  7,  8,  9,  10 

NOTE  3-USUALLY  ONLY  A  FEW  OF  THESE  MANY  COLUMNS  ARE  NEEDED  OR  PRINTED 
NOTE  4-THE  PROGRAM  CAN  BE  CONDENSED  USING  MULTIPLE-STEP  INSTRUCTIONS 
NOTE  5-ALL  ENTRIES  IN  COLUMNS  ARE  IN  FLOATING  POINT  NOTATION 
NOTE  6-TIMER  WAS  STARTED  WHEN  SPEED  REACHED  2/3  RDS  OF  PRESENT  SPEED 
LOGE  CCL  10,  STORE  IN  COL  11 

HEAD  CCL  11/11  LN  X  (THIS  IS  THE  NATURAL  LOG  OF  RADIUS  OF  PEAK) 

TITLE1  FIGURE  TWO  -  CCL  11  (.)  (LN  X)  VS.  COL  6  (TIME) 

PLCT  CCL  11  AGAINST  CCL  6 

NOTE  7-THIS  PLCT  SHOULD  BE  A  ST.  LINE,  WITH  SLOPE  PROP.  TO  SED.  COEF. 
DIVDIF  COL  11,  ARG  IN  COL  6 
EXCHANGE  COL  41  WITH  CCL  12 


Figure  4-23.  A  sample  of  input  wherein  full  advantage 
was  taken  of  the  opportunity  to  annotate  both  the 
instructions  and  the  final  results. 
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4*7*  Multilingual  Options 


At  various  stages  during  the  development  of  the 
program  an  opportunity  presented  itself  to  expand  the 
vocabulary  list  by  the  inclusion  of  synonyms  for 
commands  in  a  number  of  foreign  languages*  An  early 
version  of  the  program  is  available  in  English,  French, 
German,  and  Japanese*  As  the  vocabulary  list  grew  beyond 
100  commands,  the  space  taken  up  by  the  multiplicity  of 
synonyms  became  too  precious,  and  the  foreign  vocabulary 
was  removed* 

Figure  4—24  shows  a  portion  of  the  multilingual 
vocabulary.  If  such  a  provision  is  desired,  the  main 
vocabulary  list  can  easily  be  augmented  and  reassembled 
to  achieve  this*  This  is,  however,  a  chore  which  will 
require  the  services  of  an  experienced  systems 
programmer  as  it  will  be  necessary  to  place  the  revised 
program  on  the  system  tape* 


* 

*  *  *  *  * 

*  *  *  *  * 

* 

COMPLETE 

COMLETE 

VOLLSTAENDIG 

ZENSEKIBUN 

DEFINE 

DEFINIEREN 

UTSUSU 

DERIVATIVE 

ABLE I TUNG 

BIKEISU 

DELETE 

TORU 

DEMOTE 

SAGERU 

DIAGONALIZE 

TAIKAKUKA 

DIFFERENCE 

DIFFERENCE 

DIFFERENZ 

KAISA 

EXCHANGE 

EXCHANGER 

AUSTAUSCHEN 

TORIKAE 

FIXED 

POINTF 

FIXPUNKTE 

KOTEISHOSU 

FLIP 

GYAKUTEN 

FLOATING 

POINTM 

IDOSHOSU 

GENERATE 

OKOSU 

HEAD 

TETE 

KOPF 

HYODAI 

INCREMENT 

HENKA 

INCOMPLETE 

UNVOLLSTAENDIG 

FUKANZEN 

Figure  4—24*  A  sample  portion  of  a  listing  of  the 
current  status  of  the  multilingual  vocabulary. 
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TABLE  B.  Location  of  Results  Stored  Automatically  by  Various  OMNITAB  Commands 


COMMANDS 

COL  41 

COL  42 

COL  43 

COL  44 

COL  45 

COL  46 

DIFFER 

DIVDIF 

A  i 

»  l 

STATISTICAL  ANALYSIS000 

Analysis 

in 

34  rows 
See 

Fig  5-1 

Rank 

Ordered  X 

Deviations 
*i  -* 

FIT 

POLYFIT 

SOLVE 

s -d •  of  A 
s  -d  •  of  B 
s*d*  of  C 
etc- 

s  -d  ■ 

A 

B 

C 

etc* 

Deviations 

Y  — Y 

exp  calc 

LINEAR 

INVERT 

|C|°° 

TSUB  F  (  X • ) 

USUB 

PSUB 

HSUB 

LSUB 

F5(x±) 

r4<Xl> 

»3<X1> 

F2<xi> 

Fi(Xi) 

ISOLATE 

Roots 

Overflow 

SELECT 

2nd 

closest 
if  any 

3rd 

closest 
if  any 

4th 

closest 
if  any 

5th 

closest 
if  any 

6th 

closest 
if  any 

7th 

closest 
if  any 

I SETUP 

Averaged 

Yi 

Averaged 

Xi 

Desired 

Yi 

MINEL 

Row  of  min 

Col  of  min 

MAXEL 

Row  of  max 

Col  of  max 

°  Note  that  the  standard  deviations  of  the  coefficients  start  in  row  2 • 
00  The  value  of  the  determinant  of  the  coefficients  is  in  row  1. 

STATISTICAL  ANALYSIS  cannot  be  performed  on  columns  43  through  46* 
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5-  STATISTICAL  AND  NUMERICAL  ANALYSIS 


The  interest  in  general— purpose  programs  referred  to 
in  chapter  1  is  nowhere  so  strong  as  in  the  field  of 
statistics?  where  numerous  comprehensive  programming 
packages  and  systems  have  been  devised?  and  where  a 
number  of  committees  are  active  in  surveying  and 
evaluating  statistical  programs*  Mention  has  already 
been  made  of  BMD  (U*  C.  L*  A*).  Other  programs  in  this 
class  include  Princeton  University’s  P— STAT?  IBM’s 
STORM  (statistically  oriented?  matrix  programs)?  the 
University  of  California  Berkeley  Computer  Center’s 
STATPAK?  and?  no  doubt?  many  others* 

From  the  point  of  view  of  general  statistics  and 
analysis  of  variance?  OMNITAB  may  seem  relatively 
limited*  It  contains  only  two  major  subroutines  in 
statistics*  One  is  an  orthonormalization  program  for 
performing  least— squares  fitting  (not  just  of 
polynomials?  but  of  any  function  set).  The  other 
is  a  comprehensive  statistical  analysis  subroutine  which 
computes  34  statistical  quantities  representing  various 
measures  of  central  tendency?  randomness?  skewness? 
kurtosis?  etc*  These  operations?  augmented  by  the 
mathematical?  manipulative?  and  plotting  capabilities? 
enable  OMNITAB  to  solve  many  of  the  curve  fitting? 
statistical?  and  regression  problems  arising  in  the 
analysis  of  laboratory  data  in  the  physical  sciences* 
The  versatility  of  the  program  is  enhanced  by  the 
variety  of  function  generation?  and  numerical 
mathematical  analysis  which  can  be  performed 
interchangeably  with  the  statistical  analysis* 

As  an  example?  suppose  it  is  desired  to  pass  a  curve 
through  the  points  of  maxima  and  another  through  the 
minima  of  a  set  of  data*  This  can  be  achieved  by  use  of 
the  instructions:  READ,  MAXMIN,  and  POLYFIT*  The 
addition  of  a  PLOT  instruction  provides  also  a  graphical 
solution.  (See  section  5—4*)  Or  suppose  a  comparison  is 
sought  between  results  from  fitting  a  particular  set  of 
data  to  a  5th  degree  polynomial  and  to  Tchebyschev 
polynomials*  This  can  be  accomplished  simply  by  the 
instructions:  READ,  POLYFIT,  TSUB,  and  FIT*  The  use  of  a 
few  more  commands  would  enable  one  to  compare  the 
residuals  and  the  quality  of  the  fit?  graphically  and 
numerically.  Finally?  consider  the  analysis  of  a  body  of 
data  from  which  it  is  desired  to  remove  a  linear  trend* 
This  can  be  accomplished  with  the  instructions:  FIT  and 
STATIS*  The  process  of  fitting  a  straight  line  to  the 
data  leaves  the  deviations  in  column  46  of  the  work 
sheet.  These  are  then  analyzed  via  the  statistical 
analysis  command* 
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5*1*  Numerical  and  Statistical  Analysis  Commands 


1.  DIFFERENCE  COL  ++,  ARGUMENT  IN  COL  ++ 

a*  six  differences  are  computed  and  stored 
automatically*  (See  table  B) 

b*  meaningful  only  for  values  given  for  uniformly 
spaced  arguments* 

c*  output  is  automatic  with  a  fixed  format*  (See  fig* 
5-14) 

d*  the  average  of  the  absolute  differences  is  also 
printed. 

e*  SDIFFER  suppresses  the  printout  which  is  otherwise 
automatic. 

2*  DIVDIF  COL  ++,  ARGUMENT  IN  COL  ++ 
a*  gives  divided  differences. 

b.  applicable  to  a  table  for  non— unif ormly  spaced 
arguments. 

c*  gives  wrong  values  when  two  adjacent  arguments  are 
equal . 

d*  output  is  automatic  and  results  are  stored  in  the 
work  sheet.  (See  table  B) 

e*  SDIVDIF  suppresses  the  printout  which  is  otherwise 
automatic. 

3*  STATISTICAL  ANALYSIS  OF  COL  ++,  WEIGHTS  IN  ++ 

a*  computes  the  mean  of  a  column  of  numbers?  the 

deviations  of  each  of  the  numbers  from  their  mean? 
the  rank,  and  34  other  statistical  measures* 
b*  stores  certain  results  automatically.  (See  table 
B) 

c-  output  is  automatic-  (See  figures  5— 1  and  5— 2) 
d.  uses  unit  weights  when  no  weight  column  is  given, 
e*  SSTATIS  suppresses  the  printout* 

4.  FIT  COL  ++,  WEIGHTS  IN  COL  ++,  VECTORS  IN  ++,  ++,  - 

a*  provides  a  least  squares  fit  of  the  type 

y  =  f(x)  =  Axt  +  Bx2  +  Cx3  +  Dx4  +  ... 

b.  f(x)  is  defined  by  the  vectors  Xj  ,  x2  •••  xn  in 

the  designated  columns  (n  23)* 

c.  the  output  is  automatic  (see  figures  5—6  and  5—7) 
and  certain  results  are  stored  in  columns  44,  45,  46 
(see  table  B) . 

d.  the  deviations,  Ay.,  stored  in  column  46,  may  be 
used  with  the  original  y ^  to  obtain  computed  values 
from  the  relation  y  comp.  =  y,  obs»  —  Ay^. 

e*  the  standard  deviation  of  the  fit, a  ,  and  the 
coefficients  A,  B,  C,  D,  ...  are  stored  in  column  45 
(see  table  B) . 
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f.  the  standard  deviations  of  the  coefficients)  a  A, 
5  B,  6C,  etc*,  stored  starting  in  row  2  of  column  44, 
are  the  square  roots  of  the  diagonal  terms  of  figure 
5-6)  • 

g*  SFIT  etc* ,  suppresses  the  automatic  printout* 
h*  these  results  are  obtained  by  a  subroutine  called 
ORTHO °  which  uses  the  Gram— Schmidt  Ortho- 

normalization  process  00 

5*  POLYFIT  COL  ++,  WEIGHTS  IN  ++,  X  IN  ++,  USE  ,,  DEGREE 
a*  fits  a  polynomial  of  degree  n  so  that 

2  n 

y  =  a0  +  at  x  +  a2  x  +  •  •  •  •  anx  ;  23  ^  n 

is  satisfied  in  the  least  squares  sense* 

b*  the  program  generates  the  vectors  appropriate  to 

the  degree  from  the  tabulated  values  of  x* 

c*  output  is  automatic  (see  figures  5—6  and  5—7)* 

d*  deviations  are  stored  in  column  46  and  may  be 

subtracted  from  the  original  y  values  to  get  computed 

values* 

e*  the  standard  deviation,  a,  of  the  fit,  and  the 
coefficients  a0 ,  ,  a2 ,  •  •••  are  stored  in  column  45 

(see  table  B) * 

f*  the  standard  deviations  of  the  coefficients,  6 a0 , 
5aj ,  5a2,  etc*,  stored  starting  in  row  2  column  44, 

are  the  square  roots  of  the  diagonal  terms  of  the 
variance  covariance  matrix  (see  table  B) * 
g*  for  many  reasons  polynomials  of  high  degree  should 
be  used  with  extreme  caution* 

h*  SPOLYFIT  suppresses  the  automatic  printout* 


°  Walsh,  P.  ,  Ortho,  Comm  A.  C.  M.  ,  5.  511-13  (  1962). 

00  Davis,  P*  J*  Orthonormalizing  Codes  in  Numerical 
Analysis  in  Survey  of  Numerical  Analysis,  John  Todd,  ed* 
pp*  347—379  McGraw-Hill  Book  Company,  New  York,  1962* 

Davis,  P*  J*  and  Rabinowitz,  P* ,  Advances  in 
Orthonormalizing  Computation  in  Advances  in  Computers, 
Vol*  2,  F*  L*  Alt,  ed*  pp*  55—133  Academic  Press,  New 
York,  1961* 

Davis,  P*  J* ,  and  Rabinowitz,  A  Multiple  Purpose 
Orthonormalizing  Code  and  its  Uses,  J*  Assoc*  Comp* 
Mach*  1,  183-191,  1954* 
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6.  SOLVE  FOR  COL  ++,  COEFFICIENTS  IN  ++,  ++,  ++,  - 

a*  provides  for  a  solution  of  a  system  of  n 

equations  in  m  unknowns, 

m 

yi  xj’  1  =  1  "•  n’ 

for  yi  and  the  coefficients  a^  .  stored  in  the 
designated  columns*  J 

b*  the  equations  are  solved  exactly  for  n  =  m  and  in 
the  least  squares  sense  for  n>  m* 

c*  the  limit  for  m  and  n  are  2<m<n;  n  <10i; 

m  <  23* 

d*  output  is  automatic* 

e*  results  are  stored  in  columns  44?  45 ,  46  as  in 

items  4  and  5  above* 


7-  GQUAD  WITH  **  POINTS,  A  =  **  B  =  **  STORE  X  IN  ++, 

WEIGHTS  IN  ++ 

a*  generates  the  n  abscissae,  x.,  and  the  weight 
coefficients  Wj  for  the  Gaussian  Quadrature  formula 


Z  "j 

3=1 


b*  the  region  of  integration  is  divided  into  n/ 4 
intervals,  in  each  of  which  4—point  Gaussian 
quadrature  coefficients  and  weights  are  computed* 
c*  the  number  of  points,  n,  can  be  any  multiple  of  4 
from  4  to  100* 

d*  the  abscissae,  x.,  are  stored  in  the  first 
indicated  column  and1corresponding  weights,  ,  in 
the  second. 


8*  MAXMIN  X  IN  ++,Y  IN  ++,  STORE  MAX  IN  ++,  ++, 

MIN  IN  ++,  ++ 

a*  finds  the  maxima  and  minima  in  a  function  defined 
by  its  tabulated  values*  (Locates  hills  and  valleys) 
b*  validity  depends  on  the  adequacy  of  the  interval 
of  tabulation  and  monotonic  arrangement  of  x  for 
single  valued  functions* 

c*  the  program  identifies  the  extreme  value  in2  each 
run°  of  the  data  and  fits  a  parabola,  y  =  ax^  +  bx 
+  c,  through  the  extreme  point  and  one  on  each  side* 
d*  determines  x  =-b/ 2a  from  the  derivative* 

mi 


A  "run"  is  sequence  of  values  which  are  monotonic * 
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e.  lists  x  and  f(x  )  from  the  parabolic  fit  and 

*i  mi 

indicates  if  it  is  a  MAX  or  a  MIN. 

f.  the  results  are  presented  in  an  automatic  printout 
(see  problem  5“ 6)  . 

9.  ° INTERPOLATE  X  IN  ++,  Y  IN  ++,  L  =  ,,  FOR  THE  FIRST  ,  , 

VALUES  OF  X  IN  COL  ++,  USE  , ,  POINTS,  STORE  IN  ++ 

a.  provides  n— point  Lagrangian  interpolation  for  y  = 
f(x)  for  the  specified  number  of  x  1  s  in  the 
designated  column. 

b.  the  number  L  denotes  the  length  of  the  original 
table  indicated  in  the  first  two  column  designations, 
c*  the  original  table  must  be  monotonic  and 
increasing  in  the  independent  variable  but  need  not 
be  uniformly  spaced. 

d.  since  the  program  permits,  but  does  not  limit  the 
range  of  extrapolation  beyond  the  ends  of  the  table, 
extreme  extensions  will  provide  answers  which  may  be 
unreliable . 

e.  the  maximum  number  of  points  is  12  and  the  minimum 
(corresponding  to  linear  interpolation)  is  2*  An  even 
number  of  points  gives  better  results* 

10.  °  DERIVATIVE  X  IN  ++,  Y  IN  ++,  L  =, ,  FOR  THE  FIRST  ,, 

ENTRIES  IN  ++,  USE  , ,  POINTS,  STORE  IN  ++ 
a*  provides  n—point  Lagrangian  derivatives  for  the 
specified  number  of  X* s  in  the  designated  column. 

b.  the  number  L  denotes  the  length  of  the  original 
table  indicated  in  the  first  two  column  designations* 

c.  the  original  table  must  be  monotonic  and 
increasing  in  the  independent  variable  but  need  not 
be  uniformly  spaced. 

d.  since  the  program  permits,  but  does  not  limit  the 
range  of  extrapolation  beyond  the  ends  of  the  table, 
extreme  extensions  will  provide  answers  which  will  be 
unrealiable . 

e.  the  maximum  number  of  points  is  12  and  the  minimum 
(corresponding  to  parabolic  approximation)  is  3.  An 
odd  number  of  points  gives  smoother  derivatives. 

11.  ° LAG INTEGRATION  COL  ++,  USE  ,,  POINTS,  H  =  **, 

STORE  IN  ++ 

a*  provides  for  3, 4, 5, 6, 7, 8,  or  9— point  Lagrangian 
integration. 

b.  the  program  computes  the  integral  numerically  for 
each  value  in  the  argument  column. 

c.  arguments  must  be  uniformly  spaced. 


This  like  all  instructions,  must  be  punched  on  a 
single  card. 
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d*  the  integration  is  achieved  through  the  formula^ 
x0  +  ( m+l) h 

j  f(x)dx  =  h  ^  [  F^(  m)  ( f  (  ak)J 


where  the  f(a^)  are  functional  values  stored  in  the 
designated  column,  h  is  the  indicated  tabular 


interval,  and  F^  (m)  are  the 

coefficients  taken  from 
Interpolation  Coefficients, 
Press,  New  York  (  1944)* 


Lagrangian  integration 

"Tables  of  Lagrangian 
Columbia  University 


12.°  HARMONIC  ANALYSIS  OF  COL  ++,  FOR  ,,  ORDINATES, 
STORE  COEF  IN  ++ 

a*  determines  the  goefficients  ofnt^e  equation 


Y  -  a0  +  2  a  cos  kx  +  2  b,  sin  kx 

k=l  k  k=l 

which  fits  the  designated  ordinates  corresponding  to 
the  abscissae,  x,  which  are  distributed  uniformly 
between  0  and  36  0  degrees,  or  between  0  and  2rr 
radians* 

b.  the  number  of  ordinates  must  be  even  and  cannot 
exceed  48* 

c*  for  2n  points,  the  coefficients  are  stored  as 
follows  a0 ,  at ,  •  •  *  a^,  bj  ,  b2 ,  •  •  • 

13-  CENSOR  COL  ++  FOR  REPLACING  BY  STORE  IN  COL  ++ 
a*  compares  each  line  of  the  designated  column  with  a 
fixed  value  or  with  a  column  of  values  and  replaces 
those  values  which  are  <  than  the  indicated  ones 
by  values  in  the  third  designated  column  or  by  a 
constant,  and  stores  the  revised  values  as  indicated* 
b*  to  censor  values  larger  than  a  particular 

value,  change  the  sign  of  the  values,  censor  for  the 
negative  of  the  desired  value,  and  change  the  sign 
back* 


14* ° SELECT  IN  COL  ++  VALUES  APPROXIMATING  COL  ++  TO 
WITHIN  **,  STORE  IN  COL  ++ 

a*  searches  in  the  first  designated  column  and 
selects  values  approximating  any  of  those  in  the 
second  column  to  the  designated  tolerance  and  stores 
as  indicated. 

b*  if  more  than  one  value  is  found  approximating  a 
given  value  to  within  the  tolerance,  the  closest  one 
is  stored  as  indicated* 

c*  if  no  value  is  found,  a  zero  is  stored  on  the 
corresponding  line* 

°  Instructions  must  be  punched  on  a  single  card* 
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d*  in  addition  columns  40—46  contain  the  values 
satisfying  the  criterion  as  well  as  all  further 
values  —  up  to  a  maximum  of  six  —  which  obey  the 
tolerance • 

15.  SEARCH  IN  COL  ++  FOR  NUMBERS  IN  ++,  TRANSFER  CORRESP 
VALUES  FOR  ++  INTO  ++,++  INTO  ++,++  INTO  ++,••• 
a*  provides  for  a  search  of  a  multicolumned  table  to 
select  rows  corresponding  to  values  in  the  first 
named  column  identical  with  values  in  the  second 
named  column* 

b«  the  column  on  which  the  search  is  made  must  be 
monotonically  increasing. 

c*  the  search  is  terminated  on  encountering  three 
consecutive  zeros  in  either  of  the  argument  columns* 
d*  if  a  value  is  not  found,  a  zero  is  placed  in  the 
corresponding  row* 

16-  CHOP  X  IN  COL  ++  STORE  [X]  IN  COL  ++ 

a-  computes  [X] ,  the  largest  integer  less  than  or 
equal  to  X,  for  the  values  of  X  in  each  row  of  the 
designated  column  up  to  NRMAX  and  stores  the  result 
in  the  specified  column* 

b*  difficulties  may  be  encountered  if  X  is  very 
large . 

c«  regardless  of  the  sign  of  X,  CHOP  merely  removes 
the  fractional  part  of  the  number,  i*e»  -3 • 5  becomes 
— 3  »0  • 


117 


5*2  Statistical  Analysis 


The  instruction  STATIS  (see  page  112)  represents 
one  of  the  more  powerful  commands  in  OMNITAB*  It 
provides  an  automatic  printout  of  a  frequency  distribu¬ 
tion  (  in  deciles)  ,  rank  ordering  and  34  statistical 
properties  relating  to  a  set  of  measurements*  The 
results  of  STATIS  are  stored  in  columns  43—46  in  accord 
with  the  table  on  the  next  page*  The  notations  in  the 
last  column  refer  to  references  listed  below* 


REFERENCES 


BNLE  =  BROWNLEE ,  K*  A*  (1960)  Statistical  Theory  and 
Methodology  in  Science  and  Engineering.  Wiley, 
New  York* 

D/M  =  DIXON,  W*  J*,  Massey,  F*  J*  Jr*  (1957) 

INTRODUCTION  TO  STATISTICAL  ANALYSIS,  McGraw- 
Hill,  New  York* 

Duncan  =  DUNCAN,  A*  J*  (1959)  Quality  Control  and 
Industrial  Statistics.  2nd*  ed • ,  Irwin, 
Homewood,  Illinois* 


Hald  =  HALD,  A*  (1952)  Statistical  Theory  with 

Engineering  Applications,  Wiley,  New  York* 

H— 9 1  =  NATRELLA,  M*  G*  (1963)  Experimental 

Statistics ,  NBS  Handbook  91,  U*S* 

Government  Printing  Office,  Washington,  D*C* 
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5- 2-  Statistical  Analysis 


Frequency  Distribution  —  count  of  no-  of  values  in  10 
equal  intervals  between  minimum  and  maximum 


The  following 

are  computed  from  the  X  array 

(Row, 

Col) 

Reference  Page  Numbers 

n  =  NR  MAX 

(1» 

43) 

Non  Zero  Weights 

-  NZW 

(2, 

43) 

Sum  of  Weights 

n 

£  W, 

(  3, 

43) 

i=l  1 
n 

Sum  of  Values 

£  X 

(4, 

43) 

i  =  l  1 
n 

2  (w.x.) 

Weighted  Mean 

1=1  -  V 

(5, 

43) 

BNLE  72  to  74;  Hald  243  to  245 

n  X 

£  W, 

i«l  1 

n 

Unweighted  Mean 

£  X  /n 

(6, 

43) 

D/M  14  to  17,  112  to  130;  H-9 1 

i-1  1 

1-10,  Ch*  3;  Hald  67  to  72 

Minimum  Value 

Xmin. 

(7, 

43) 

D/M  27  5  to  278  ,  293  to  294; 

B— 91  Ch-  7;  Hald  329  to  336; 
Duncan  113  to  114 

Median  for  n 

°ddl  X( n+1)/ 2 

(8, 

43) 

D/M  70  to  7  5,  29  5  to  297 

for  n  even,  X(n/2)  +  X(n+l)/2 

2 


Maximum  Value  X 

max- 

n 

Weighted  Sum  of  Squares  £  ^WiXi 
n 


(9,  43) 
(10,  43) 


£  (dev1)  W± 


NZW  -  1 

a 

(11, 

43) 

Standard  Deviation 

S 

(12, 

43) 

S*D*  of  Mean 

S/  V  E  W± 

(13, 

43) 

Range 

x  -  X  . 

max-  min- 

(14, 

43) 

Coeff-  of  Var* 

ioos/x 

(15, 

43) 

Student '  s  t 

x(Vswi)/s 

(16, 

43) 

Mean  Sq-  Successive 

Diff.  D  =  /!(!WXt)2 

(17, 

43) 

Mean  Sq-  Succ-  Diff./Var- 
No*  of  Runs  Up  and  Down 
Expected  No-  of  Runs  (ENR) 


n  -  1 

d/s2 

RUNS 

(  2n  -  l) / 3 


(18,  43) 
(19,  43) 

(  20,  43) 


D/M  275  to  278.  293  to  294; 
H— 9 1  Ch-  7;  Hald  329  to  336 
Duncan  113  to  114 


D/M  18  to  21,  80,  102  to  110; 

H— 9 1  1-10;  Hald  72  to  77,  Ch - 

11;  BNLE  218  to  223 

D/M  18  to  21,  80,  102  to  110; 

H— 9 1  1-10;  Hald  72  to  77,  Ch - 

11;  BNLE  218  to  223 

D/M  36  to  42,  50  to  52;  H-9 1 

2-1  to  2-5;  Hald  199  to  202; 

Duncan  98  to  103 

Hald  319  to  329;  H-9 1  2-6; 

Duncan  44,  111  to  113 

Hald  77,  301 


H— 91  3-3  to  3-8;  D/M  115  to 
119;  BNLE  227  to  230 


Hald  257  to  258 


D/M  299;  Hald  357  to  359; 
BNLE  161  to  164 


S-D-  of  No-  of  Runs  (SDR) 


[  (  16n-29)/90j  ^ 2  (21,  43) 
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Diff/S.D.  of  Runs  |RUNSSdbENR 


(22,  43)  Hald  353  to  357:  Duncan  117  to 
122 


The  following  are  computed  from  the  deviations  from 
the  mean 


No*  of  +  signs  in  dev  nij  (23,  43) 

No*  of  —  signs  in  dev  m 2 

(No*  of  sign  changes  in  dev)  +  1  -  DRUNS 
Expected  No*  of  Runs  ( ENRD)  1  +  ( 2m1m2/n)  (  26,  43) 


S*  D*  of  No*  of  Runs 


Diff/S.D*  of  Runs 


[2m  m  (2m  m  -m  -m  ) 
_J_2 - L  2  1  2 - 

(mx  +  mg)  n  -  l)_ 


I DRUNS  ~  ENRD I 

SDRD 


12  L  (i(  dev  )) 

Trend  T  -  i _ 

(Linear)  2 

n  (  n  -  1) 

n  2 

S*  D*  of  Trend  _  12  £  (dev.)^  1 

-’I 

Trend/S.D*  of  Trend 


[n  E(deVi)3J 

[  V  •  S"  ] 

n  2  ( dovi) 4 

[  “?  '  32  ] 

Mean  Deviation  E  |devi| 


Beta  One 


Beta  Two 


(24, 

43) 

(25, 

43) 

(  26, 

l/2 

43) 

(  27: 

,  43) 

(  28, 

43) 

Duncan  117  to  122;  Hald  342  to 
353;  0/M  288  to  289;  5NLE  170 
to  17  1 

(  29, 

43) 

(  30, 

43) 

(31, 

43) 

D/M  19  1  to  19  6;  H— 9 1 
Hald  540;  BNLE  280  to 

5-19 ; 

283 

(32, 

43) 

Duncan  49  to  51,  496 

to  501 

(  33, 

43) 

Duncan  49  to  51,  496 

to  501 

(34, 

43) 

Duncan  44  to  4-6 

Column  44  contains  the  ranks 


Column  45  contains  the  ordered  X, 


Column  46  contains 


Xi-  X  -  dev  j. 
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output 

ion 


PAGE  1 


Figure 


On  this  and  the  following  pages  we  illustrate  the 
which  is  achieved  automatically  by  the  instruct- 


STATISTICAL  ANALYSIS  OF  COL  6 


[TAB 

CORRECTION  TO  NBS 

STANDARD  100  GRAM 

WEIGHT 

STATISTICAL 

ANALYSIS  OF  COL  6 

FREQUENCY  DISTRIBUTION  6  6 

10  22  20  12  13 

5  3  3 

COMPUTATIONS  ON  THE 

X  ARRAY 

COMPUTATIONS  ON 

DEVIATIONS 

N= 

100 

NO  OF  +  S I GNS= 

46 

NON  ZERO  WE IGHTS= 

100 

NO  OF  -  S I GNS= 

54 

SUM  GF  WEIGHTS= 

1 . 00000CE  02 

NO  OF  RUNS= 

40 

SUM  OF  VALUES= 

9.9 1096 1 E— 0 1 

EXPECTED  NO  OF  RUNS= 

5.068000E  01 

WEIGHTEO  ME AN= 

9.9 1096 IE- 03 

S.O.  OF  RUNS= 

4.942520E  00 

UNWEIGHTED  MEAN= 

9.9 1096  IE— 03 

DIFF./S.D.  OF  RUNS= 

2 . 16084  1 E  00 

MINIMUM  VALUE= 

-8.  79598  0E- 03 

TREND= 

—9 .915385  E— 0  5 

MED  I AN  = 

8.974615E-03 

S.D.  OF  TREND= 

2.942139E-06 

MAXIMUM  VAL  UE  = 

3. 358555E— 02 

TREND/S. D.  OF  TREND= 

-3.370128E  01 

WTD  SUM  OF  SQUARES= 

1. 7569C6E-02 

BETA  0NE= 

6.1 78769E— 02 

VAR  I ANCE  = 

7.824594E-05 

BETA  TWO= 

2 . 992088E  00 

S.D.= 

8.845673E-03 

MEAN  DEVI  ATI ON= 

6.887437E-03 

S.O.  OF  ME AN= 

8. 845673E— 04 

RANGE= 

4.23815  3E—  02 

COEFF.  OF  VAR  .  = 

8.925142E  01 

STUOENT*S  T  = 

1 . 1 20430E  01 

MEAN 

SO  SUCCESSIVE  D I FF .= 

9. 534669E— 05 

MEAN 

SQ  SUCC.  DIFF./VAR.= 

1.21855  IE  00 

NO 

OF  RUNS  UP  AND  DOWN= 

61 

EXPECTED  NO  OF  RUNS= 

6. 633333F  01 

S.C.  OF  NO  OF  RUNS= 

4.177985E  00 

DIFF./S.D.  OF  RUNS= 

1.276532E  00 

1*  Aromatic  Printout  for  the  Command  STATIS* 
Par t  X • 
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CORRECTION  TO  NBS  STANDARD  100  GRAM  WEIGHT 


N 

X  {  N ) 

WIN  ) 

RANK 

DEVIN) 

N  (  S  ) 

ORDERED  X 

DELTA 

1 

6.580590E-03 

1.0 

36.0 

-3.330371E-03 

82 

-8 . 795980E— 03 

2.657200E-04 

2 

6.235690E-03 

1.0 

45.0 

-1.67527 1 E- 03 

70 

-8 • 530260E-03 

5 . 849600  E-04 

3 

6.410480E-03 

1.0 

34.0 

—  3 . 50048  IE  — 03 

83 

-7.945300E-03 

8.53 1800E-04 

4 

1.966143E— 02 

1 .0 

87.0 

9. 750469E— 03 

53 

-7.092120E-03 

1.468180E-03 

5 

1 . 4034  87E-02 

1.0 

74.0 

4. 123909E— 03 

85 

-5 . 62  3940 E— 03 

9.249500E— 04 

6 

2. 520990E-02 

1.0 

95.0 

1. 529894E-02 

81 

-4.698990E-03 

1.804590 E-03 

7 

9. 583470E-03 

1.0 

52.0 

-3.274906E— 04 

58 

-2. 894400E-03 

1 . 602200E-04 

8 

1.7150  16E— 02 

1.0 

78.0 

7.239199E-03 

97 

-2.7341  80E  — 03 

9 . 399600  E  — 04 

9 

1.465738E-02 

1.0 

75.0 

4. 74641 9E—  03 

50 

-1 .794220E-03 

7 . 808000E-05 

10 

6.026150E— 03 

1.0 

33.0 

-3. 88481  IE  — 03 

54 

-1.716140E-03 

2 . 459 300 E-04 

11 

1. 07262  IE-02 

1.0 

58.0 

8. 152494E-04 

63 

-1.4702 1 0E-03 

1.067640E-03 

12 

2 . 059352E-02 

1.0 

89.0 

1 . 068256E— 02 

51 

—4. 025700E-04 

7.41 2400  E-04 

13 

8. 106350E-03 

1.0 

43.0 

- 1 . 80461 IE— 03 

22 

3 . 386700E— 04 

5.476500E— 04 

14 

1. 624460E-03 

1.0 

16.0 

—  8.286500E-03 

62 

8. 863200E-04 

1 • 533C00E— 04 

15 

1. 379478E-02 

1.0 

72.0 

3.86381 9E-03 

64 

1 . 039620E-03 

5 • 848400E-04 

16 

8. 756880E— 03 

1.0 

49.0 

-1. 154081E-03 

14 

1 . 624460  E-03 

6.6770006-04 

17 

1. 2 35 771 E— 02 

1.0 

64.0 

2. 446749E-03 

30 

2.292 1 60E-03 

3.283000E-04 

18 

1. 892900E-02 

1.0 

84.0 

9.01 8039E-03 

80 

2 • 620460E-03 

5.697000E— 04 

19 

1 • 72 5 1 6  IE  — 02 

1.0 

79.0 

7. 340649E-03 

61 

3. 190160E— 03 

2 .8425006-04 

20 

1. 558733E-02 

1.0 

76.0 

5.676369E-03 

66 

3 . 4744 10E-03 

1.975900E-04 

21 

1  • 8644  57E-02 

1.0 

82.0 

8. 733609E-03 

75 

3.672000E-03 

2. 395000E-04 

22 

3.386700E-04 

1.0 

13.0 

-9. 572290E— 03 

74 

3.91 1500E-03 

4. 89900  1E-0  5 

23 

2.049446E-02 

1.0 

88.0 

1 . 05  835  0E- 02 

60 

3 • 960490E-0  3 

2.895 100  E-04 

24 

2.667689E-02 

1.0 

96.0 

1 . 6  76593E-02 

89 

4.250000E— 03 

9.0 16995E-05 

25 

2. 131 724E-02 

1.0 

92.0 

1. 140628E-02 

77 

4. 3401 70E-03 

1 .682 100E-04 

26 

9. 792920E-03 

1.0 

53.0 

-1. 180406E— 04 

39 

4. 508380 E— 03 

2.486700E-04 

27 

1.913440E— 02 

1.0 

86.0 

9. 22  3439E-03 

31 

4. 757050E— 03 

2.034900E-04 

28 

2. 9000 16E-02 

1.0 

97.  0 

1 . 90892  0E— 0  2 

48 

4.960540E-03 

1 . 200400E-04 

29 

1.  165688E-02 

1.0 

62.0 

1. 745919E-03 

47 

5 . 080580E-03 

5.257002E— 05 

30 

2.292  160E-03 

1.0 

17.0 

-7.61 8801E-03 

95 

5. 133150E-03 

1  • 275600E-04 

31 

4. 757050E— 03 

1.0 

27.0 

-5. 15391  IE-03 

88 

5 . 2607 10E-03 

9.118998E-05 

32 

1. 198924E-0 2 

1.0 

63.0 

2.0  78279E-03 

73 

5.35 19006-03 

6. 742500E-04 

33 

7. 070780E-03 

1.0 

40.0 

-2. 840181E-03 

10 

6.0261 50E— 03 

3. 8433006-04 

34 

1.402235E-02 

1.0 

73.0 

4. 111389E-03 

3 

6.41 0480E-03 

4.268001E-05 

35 

1. 853967E-02 

1.0 

81.0 

8. 62  8709E-03 

71 

6. 453160E— 03 

1.274300E-04 

36 

2 . 087438E-02 

1.0 

90.0 

1.096342E-0 2 

1 

6. 580590E-03 

8 . 76 1S99E-05 

37 

3. 043 199E-02 

1.0 

99.0 

2.052103E— 02 

65 

6.6682 10  E-03 

1 • 543800E— 04 

38 

3. 358555E— 02 

1.0 

100.0 

2.367459E-02 

98 

6 . 822590E-03 

2.1839006-04 

39 

4 • 508  380E-0  3 

1.0 

26.0 

-5. 40258  IE— 03 

69 

7 . 040980E— 03 

2.979999E-05 

40 

1. 09974  IE-02 

1.0 

60.0 

1.086449E— 03 

33 

7. 070780E-03 

2 .4  77200E-04 

41 

2.  130365E-02 

1.0 

91.0 

1. 139269E-02 

79 

7. 31 8500E-03 

2.037300E-04 

42 

1  • 044822E-02 

1.0 

57.0 

5. 3  72594E-04 

55 

7 • 522230E— 03 

5. 8412006-04 

43 

1. 318228E-02 

1.0 

69.0 

3.27131 9E-03 

13 

8. 106350E-03 

2 .2650006-05 

44 

1.241 148E-02 

1.0 

65.0 

2.50051 9E— 03 

76 

8. 129000E-03 

1 .0669006-04 

45 

2. 393603E-02 

1.0 

94.0 

1 . 402507E-02 

2 

8.235690E-03 

1 • 764996E— 05 

46 

2.943015E-02 

1.0 

98.0 

1 . 95 1 9 1 9E  — 02 

93 

8.253340E-03 

2. 731000E-04 

47 

5.080580E-03 

1.0 

29.0 

-4. 830381E— 03 

59 

8.526440E-03 

1.968200E-04 

48 

4. 960540E-0  3 

1.0 

28.0 

-4. 950421 E— 03 

84 

8.72  3260E-03 

3. 362005E-05 

49 

1. 354527E-02 

1.0 

71.0 

3. 634309E-03 

16 

8. 756880E-03 

1.6  58  200  E-04 

50 

-1. 794220E-03 

1.0 

9.0 

-1. 170518E-02 

52 

8.922  700E-03 

1.0383006-04 

Figure  5-2-  Automatic  Printout  from  the  Command  STATIS. 
Part  II  Showing:  Rank,  Deviations,  etc* 
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PAGE  4  OMMTAB  CORRECTION  TO  N8S  STANDARD  TOO  GRAM  WEIGHT 


COLUMN  43 

COLUMN  44 

COLUMN  45 

COLUMN  46 

100.0000000 

36.0000000 

-0.0067960 

-0.0033304 

100.0000000 

45.0000000 

-0.0085303 

-0.0016753 

100.0000000 

34.0000000 

-0.0079453 

-0. 0035005 

0.9910961 

87.0000000 

-0.0070921 

0.0097505 

0.0099110 

74.0000000 

-0.0056239 

0.0041239 

0.0099110 

95.0000000 

-0.0046990 

0.0152989 

-0.0087960 

52.0000000 

-0.0028944 

-0.0003275 

0.0089746 

78.0000000 

-0.0027342 

0.0072392 

0.0335855 

75.0000000 

-0.0017942 

0. 0047464 

0.0175691 

33.0000000 

-0.0017161 

-0.0038848 

0.0000782 

58.0000000 

-0.0014702 

0.0008152 

0.0088457 

89.0000000 

-0.0004026 

0.0106826 

0.0008846 

43.0000000 

0.0003387 

-0.0018046 

0.0423815 

16.0000000 

0.0008863 

-0.0082865 

89.2514248 

72.0000000 

0.0010396 

0.0038838 

11.2043028 

49.0000000 

0.0016245 

-0.0011541 

0.0000953 

64.0000000 

0.0022922 

0.0024467 

1.2185512 

84.0000000 

0.0026205 

0.0090180 

61.0000000 

79.0000000 

0.0031902 

0. 0073406 

66.3333330 

76.0000000 

0.0034744 

0.0056764 

4.1779846 

82.0000000 

0.0036720 

0.0087336 

1.2765325 

13.0000000 

0.0039115 

-0.0095723 

46.0000000 

88.0000000 

0.0039605 

0.0105835 

54.0000000 

96.0000000 

0.0042500 

0.0167659 

40.0000000 

92.0000000 

0.0043402 

0.0114063 

50.6799994 

53.0000000 

0.0045084 

-0.0001180 

4.9425205 

86.0000000 

0.0047570 

0.0092234 

2.1608407 

97.0000000 

0.0049605 

0.0190892 

-0.0000992 

62.0000000 

0.0050806 

0.0017459 

0.0000029 

17.0000000 

0.0051331 

-0.0076188 

-33.7012758 

27.0000000 

0.0052607 

-0.0051539 

0.0617877 

63.0000000 

0.0053519 

0.0020783 

2.9920876 

40.0000000 

0.0060261 

-0.0028402 

0.0068874 

73.0000000 

0.0064105 

0.0041114 

0. 

81.0000000 

0.0064532 

0.0086287 

0. 

90.0000000 

0.0065806 

0.0109634 

0. 

99.0000000 

0.0066682 

0.0205210 

Figure  5-3.  Printout  of  results  stored  automatically 
by  the  instructions  STATIS  and  SSTATIS.  This  printout 
is  not  automatic. 
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5 • 3*  Least —Squares  Curve  Fitting 


The  curve  fitting  in  OMNITAB  is  accomplished  with 
the  aid  of  a  versatile  subroutine  which  is  called  ORTHO 
—  short  for  Orthonormalization.  This  subroutine, 
referred  to  briefly  in  section  5*1,  provides  for  fitting 
in  the  least  squares  sense  or  in  the  exact  sense,  and 
can  be  used  for  the  following  related  operations^ 


a*  fitting  of  data  to  polynomial  functions  or 
to  any  of  the  algebraic  or  transcendental 
functions  in  the  OMNITAB  repertoire* 

b.  fitting  of  empirical  data  in  two  or  more 
dimensions  as  a  function  of  several 
independent  variables* 

c*  solutions  of  systems  of  linear  functional 
equations. 

d*  expansion  of  a  given  set  of  functional 
values  in  series  of  orthogonal  functions  — 
trigonometric  functions,  Legendre  polynomials, 
Tchebychev  polynomials* 


The  above  operations  are  only  a  few  of  the  mathematical 
applications  of  the  orthonomalizat ion  technique  for 
which  the  reader  is  referred  to  the  series  of  papers  by 
Davis  and  Rabinowitz  cited  in  section  5* 1* 

The  almost  universal  use  of  polynomial 
approximations  in  certain  segments  of  the  scientific 
literature  leaves  the  casual  reader  with  a  distorted 
view  of  the  superiority  of  polynomials  over  other 
functional  forms  of  approximation.  That  this  influence 
has  extended  to  machine  programmers  may  be  inferred  from 
the  preponderance  of  programs  for  least-squares  fitting 
which  are  specialized  to  polynomials* 

In  view  of  the  generality  of  the  ORTHO  subroutine, 
we  illustrate  its  use  first  in  the  more  general  sense* 
We  consider  first  a  matrix  of  measurements  composed  of  a 
column  vector  v^  representing  the  dependent  variable  and 
three  column  vectors  x^,  y z i  representing  three 
independent  variables*  ^The  1numbers  are  arranged  as 
follows* 
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Vi 

>  xt  , 

yi  > 

zi 

v2 

5  X2  9 

Vi’ 

z2 

v3 

9  Xg  , 

y*> 

z  3 

• 

vn 

’  xn’ 

ynJ 

zn 

If  the  functional  relationship  between  these 
measurements  is  considered  to  be  a  linear  combination  of 
the  variables 


vi  =  axi  +  by±  +  cz.  , 

the  OMNITAB  program  requires  simply  to  be  told  the 
location  of  the  vectors  v.,  x^>  y and  z.  and  the 
location  of  a  column  of  weights  w.«  In  case  tne  curve 
does  not  go  through  the  origin,  and  the  relationship  is 
still  of  the  same  form! 

vi  =  axi  +  fry i  +  czi  + 

it  is  necessary  to  supply  also  a  column  vector  of  l’s  to 
accommodate  the  constant  term  d*  The  order  in  which  the 
vectors  are  specified  is  not  important  for  the  overall 
fit,  but  does  influence  the  sum  of  the  squared  residuals 
which  gives  the  amount  by  which  the  sum  of  the  squared 
residuals  are  decreased  by  each  of  the  terms  of  the 
equation. 

If  the  measurements  are  believed  to  obey  the 
relationship 

vi  =  aix±+  a2x?+  b,y±  +  b2y^  +  c1z±  +  c2z^ 

+  dxty±  +  ex±zi+  fy^  +  g  , 

it  will  be  necessary  to  generate  from  the  original 

2  2  2 

measurements  x.,  y.,  z.,  the  vectors  x#,  y.,  z.,  x . y . , 

xizi  ’  yizi  andla  vector 1of  lTs. 

OMNITAB  can  handle  the  least-squares  fitting  of  as 
many  as  23  vectors*  The  instruction  is* 

FIT  COL  ++,  WEIGHTS  IN  COL  ++,  VECTORS  IN  ++,  ++,  etc 

The  same  instruction  can  be  used  regardless  of  the 
nature  of  the  functional  forms  of  the  vectors  provided 
only  that  the  unknowns  are  in  the  coefficients-  Thus,  if 
a  set  of  measurements  yield  the  vectors,  h.,0.  and  a  fit 
is  desired  of  the  form 
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h  =  a0  +  ajsin  0.  +  a2sin  20.  +  ....  biCos  0. 

+  b2  cos  2©i  +  •  •  •  ?  1 

it  is  necessary  only  to  generate  the  unit  vector  and  the 
vectors 


sin  0i?  sin  2©i« • - • ?  cos  0i?  cos  20i  • • - 

Having  the  vectors  for  one  or  more  independent 
variables?  it  is  possible  in  OMNITAB  to  fit  a  variety  of 
functions  represented  by  the  equations 


y±-  a0  +  a.1  cp  i  ( Xj  +  a2  2  ( x2  ±)  +  - 

or 

yi  =  ao  +Sa.  cp.(x..)  • 

J 

The  cp  -  may  represent  polynomial  functions? 
trigonometric?  exponential?  hyperbolic  functions?  etc- 

The  need  to  generate  powers  or  other  functions  for 
certain  of  the  experimental  vectors  becomes  obvious  when 
one  recalls  how  such  calculations  are  carried  out  on  a 
desk  calculator.  It  should  also  be  clear  that  after  the 
vectors  are  supplied, the  algebraic  method  of  solution  is 
identical  for  all  functional  forms-  In  the  case  of  a 
polynomial  fit  of  the  form 

Yi  =  ao  +  a,xi  +  a2x*+  a3x?  +  ....  , 

we  have  introduced  a  special  command  which  obviates  the 

2  3 

need  to  supply  the  vectors  x  ?  x  ?  or  the  vectors  of 
l’s-  The  program  generates  these  automatically  for  the 
designated  column  of  x^  on  the  special  command  • 

POLYFIT  ++,  WEIGHTS  IN  ++,  X  IN  ++,  USE  4TH  DEGREE 

This  command  can  only  be  used  when  the  functional  form 
is  a  polynomial  of  the  above  type  with  no  terms  missing. 
If  terms  are  missing?  the  vectors  must  be  generated  and 
the  instruction  is  FIT?  etc-?  instead  of  POLYFIT- 

A  similar  problem  arises  when  we  wish  to  place  a 
restraint  on  the  fitting  function  by  specifying  one  or 
more  of  the  coefficients-  For  example?  if  we  should 
desire  to  fit  compressibility  data  to  a  virial  equation 
in  pressure  of  the  form 
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Z  =  1  +  BP  +  CP2  +  DP3  , 

we  cannot  use  POLYFIT*  We  must  fit  (Z  — l)  =  BP  +  CP2+ 
3 

DP  in  which  case  we  must  generate  the  vectors  Z  —  1, 
2 

P  ,  P  from  the  original  vectors  Z,  P.  In  OMNITAB  the 
generation  of  these  vectors  poses  no  particular  problem- 

In  the  course  of  curve— f itting  it  is  often  desired 
to  compute  the  function  for  a  set  of  values  of  X  other 
than  those  at  which  the  data  are  tabulated-  Normally 
such  calculations  would  be  carried  out  using  the  least- 
square  coefficients  obtained  from  the  curve— f itting 
routine.  It  is?  however,  not  necessary  to  make  two 
passes-  The  values  of  the  function  for  a  second  set  of 
arguments  can  be  obtained  at  the  same  time  as  the 
curve— f itting  is  done,  simply  by  augmenting  the  matrix 
of  input  data  by  a  suitably  arranged  matrix  containing  a 
vector  of  the  new  values  of  X  and  zeros  in  the 
corresponding  rows  of  the  y  vector  and  the  vector  of 
weights- 

Thus  if  x.,  y.,  and  w.  represent  vectors 

corresponding  to  theabscissae ,  ordinates ,  and  weights 
of  the  data  to  be  fitted,  and  values  are  desired  for  a 
set  of  abscissae  X1 ,  X2 >  X3 ,  •••,  XQ,  the  augmentation 
of  the  above  three  vectors  as  follows? 


*1  > 

yi  > 

Wi 

I 

x2  > 

yz> 

w2  1 

,  original  data 

• 

• 

y  array 

xn’ 

yn’ 

wn  > 

Xi, 

0, 

0 

X2  > 

0, 

0 

1 

x3, 

0, 

0 

V  augmented  array 

V 

0, 

0 

J 

will  produce  the  desired  result- 

The  values  for  f(X^)  will  appear  with  the  opposite 
sign  in  the  column  headed  DEVIATIONS.  These  are 
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subtracted  from  the  given  values  of  y  to  yield 
deviations.  Since  the  Yn  were  all  zeros,  the  deviation 
is  the  negative  of  the  desired  Y  values.  The  zeros  in 
the  weight  column  insure  that  tnese  points  are  not 
included  in  the  least— squares  fitting. 

In  the  example  which  follows,  36  points  are  fitted 
to  a  polynomial  of  the  second  degree.  The  weights  are 
not  included  with  the  data.  They  are  computed  in  the  ADD 
instruction  preceding  the  READ  statement.  These  will 
serve  as  the  weights  for  the  experimental  points.  The  36 
points  have,  however,  been  augmented  by  14  values  of  X 
extending  from  0.  to  .325  in  intervals  of  *025.  The 
READ  statement  resets  the  number  of  lines  from  36  to  50 
so  that  the  subsequent  operations  are  carried  out  on  the 
augmented  matrix®  Since  column  3,  which  contains  the 
weights,  is  blank  below  the  36th  line,  the  weights  for 
the  last  14  points  are  zero;  hence  these  points  do  not 
influence  the  fit. 

The  printout  for  the  POLYFIT  and  the  FIT  instruction 
(see  figures  5—6  and  5—7)  gives*  the  coefficients,  the 
standard  deviation,  the  covariance  matrix,  the  square 
root  of  the  covariance  diagonal,  the  variance- 
covariance  matrix,  the  square  root  of  the  variance- 
covariance  matrix  diagonal,  the  Gram  determinant,  the 
Fourier  coefficients,  the  squared  Fourier  coefficients, 
the  sum  of  the  squared  residuals,  the  residuals,  the  A.  . 
matrix,  the  Gram  factors,  the  vector  norms,  and  tne 
deviations. 
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CMN I  TAB 


TITLE2  X 
NCSUN^AR Y 
GENERATE  1 
ACC  1 

READ  1,2 
3.86  .126 

4.20  .138 

4.23  .140 
4.31  .144 
4.55  .157 
4.55  .159 
4.69  .162 

4.74  .164 

4.75  .166 

4.79  .168 
4.91  .173 

4.97  .178 

5.20  .188 
5.33  .194 
5.42  .203 
5.37  .208 
5.62  .217 
5.66  .219 

5.74  .230 

5.79  .230 

5.75  .237 

5.95  .243 

5.97  .244 

5.96  .247 
6.06  .258 
6.09  .260 
6.02  .266 

6.15  .269 

6.22  .270 

6.24  .270 

6.16  .273 

6.25  .277 
6.19  .288 

6.23  .288 


11/8/62 

IS  BLADE-TO  JET-SPEED  R AT  10  f  Y  IS  TOTAL-TO-STATIC 

. ( 1 • ) 36  .  30 
.  T  C  0.  t  3 


6.07  .294 
6.11  .297 
0.  0. 

0.  .025 
0.  .05 
0.  .075 
0.  .10 
0.  .125 
0.  .15 
0.  .175 
0.  .20 
0.  .225 
0.  .25 
0.  .275 
0.  .  30 
0.  .325 

NULT  CCL  1  EY  .1  STORE  IN  COL  1 
PCLYFIT  Y  IN  1  WTS  IN  3  X  IN  2  2ND  DEGREE 
TITLE1  Y  IN  1  WTS  IN  3  X  IN  2  2ND  DEGREE 
SUB  46  FRC^  CCL  1  STORE  IN  COL  4 
ACC  46  TO  0.  5 
HEAD  1/  Y 
HEAD  2/  X 
HEAD  4/COHPUTEC 
HEAD  5/ DEVIATION 
FIXED  4  DECIMALS 
PRINT  2154 
STOP 


Figure  5—4*  Data  and  instructions  for  a  polynomial  fit* 
See  Figure  5—5  for  results* 
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PAGE  3  CMMTAB  11/8/62 

Y  IN  1  hTS  IN  3  X  IN  2  2ND  DEGREE 

X  IS  BLADE-TO  JET-SPEED  RATIO, Y  IS  TOTAL-TO-STAT I C 
X  Y  DEVIATION  COMPUTED 

»  \  *  ♦ 


0.1730 

0.4910 

0.0020 

0.4890 

0.1780 

0.4970 

-0.0012 

0.4982 

0.1880 

0.5200 

0.0042 

0.5158 

0.1940 

0.5330 

0.0073 

0.5257 

0.2030 

0.5420 

0.0021 

0.5399 

0.2080 

0.5370 

-0.0104 

0.5474 

0.2170 

0.5620 

0.0018 

0.5602 

0.2190 

0.5660 

0.0031 

0.5629 

0.2300 

0.5740 

-0.0030 

0.5770 

0.2300 

0.5790 

0.0020 

0.5770 

0.2370 

0.5750 

-0.0103 

0.5853 

0.2430 

0.5950 

0.0031 

0.5919 

0.2440 

0.5970 

0.0040 

0.5930 

0.2470 

0.5960 

-0.0001 

0.5961 

0.2580 

0.6060 

-0.0007 

0.6067 

0.2600 

0.6090 

0.0005 

0.6085 

0.2660 

0.6020 

-0.0116 

0.6136 

0.2690 

0.6150 

-0.0009 

0.6159 

0.2700 

0.6220 

0.0053 

0.6167 

0.2700 

0.6240 

0.0073 

0.6167 

0.2730 

0.6160 

-0.0030 

0.6190 

0.2770 

0.6250 

0.0032 

0.6218 

0.2880 

0.6190 

-0.0097 

0.6287 

0.2880 

0.6230 

-0.0057 

0.6287 

0.2940 

0.6070 

-0.0248 

0.6318 

0.2970 

0.6110 

-0.0223 

0.6333 

0. 

0. 

0.0037 

-0.0037 

0.0250 

0. 

-0.0885 

0.0885 

0.0500 

0. 

-0.  1736 

0.  1736 

0.0750 

0. 

-0.2516 

0.2516 

0.1000 

0. 

-0.3226 

0.3226 

0.1250 

0. 

-0.3864 

0.3864 

0.1500 

0. 

-0.4431 

0.4431 

0.1750 

0. 

-0.4928 

0.4928 

0.2000 

0. 

-0.5353 

0.5353 

0.2250 

0. 

-0.5708 

0.5708 

0.2500 

0. 

-0.5991 

0.5991 

0.2750 

0. 

-0.6204 

0.6204 

0.3000 

0. 

-0.6346 

0.6346 

0.3250 

0. 

-0.6417 

0.6417 

Figure  5-5 •  Results  of  a  polynomial  fit  to  data  shown 
in  Figure  5~4*  Note  that  the  function  is  computed  for 
the  lower  values  whose  weights  are  set  to  zero* 
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5-4  Problems  in  Statistical  and  Numerical  Analysis 
Problem  5  —  1 


Given  34  experimental  points  representing  the  data 
of  state  of  boron  trifluoride  at  0°C?  fit  polynomials  of 
4 ?  5 ?  6 ?  and  7th  degree?  print?  plot  and  save  the 
deviations  to  permit  an  easy  comparison  and  especially 
to  determine  the  suitability  of  any  of  the  polynomial 
representations  indicated  above. 


The  data  are  read  into  the  machine  with  the 
following  instruction  set:  (Because  the  READ  instruction 
asks  only  for  2  columns?  the  last  two  are  ignored.) 

OMMTAB  8F3  0  CEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 
TITLE1  Z  VALUE  AT  0  CEG  1  ATM  IS  0.99409 
READ  1  2 


9.98416  . 

93770 

336 

5 

11.94314 

.92478 

335 

5 

14.24323 

.90932 

337 

4 

16.61896 

.89300 

336 

4 

19.67139 

.  8  7 1 A  9 

335 

4 

23.16199 

.84606 

337 

3 

26.65774 

.81959 

336 

3 

30.98029 

.78529 

335 

3 

35.67938 

.74568 

337 

2 

40.1118 8 

.70560 

336 

2 

45.19485 

.65547 

335 

2 

50. 19874 

.60029 

337 

1 

54.41398 

.54766 

336 

1 

58.66507 

.48683 

335 

1 

61.76115 

.43666 

345 

2 

64.00868 

.39926 

345 

2 

65.34411 

.37831 

346 

2 

65.88513 

.37059 

343 

2 

66.59998 

.36103 

338 

2 

67.73169 

.34719 

342 

2 

68.63512 

.33791 

347 

2 

68.83938 

.33628 

341 

2 

69.63908 

.32967 

340 

2 

70.31823 

.32499 

339 

2 

75.74023 

.30640 

344 

1 

86.78898 

.30976 

345 

1 

99.98467 

.33122 

346 

1 

107.31114 

.34537 

343 

1 

119.52989 

.37076 

338 

1 

146.49848 

.4297 

342 

1 

174.65717 

.49207 

347  1 

181. 14272 

.50637 

341 

1 

210.80997 

.57110 

340 

1 

239. 10488 

.63242 

339 

1 
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ADD  1. 

,  C 

• 

3 

PULT  2 

1. 

00595 

4 

DIV  1 

4 

5 

PCLYFIT 

4 

3 

5 

4TH  DEGREE 

EXCHANGE 

44 

11 

45 

15  46  19 

PCLYFIT 

4 

3 

5 

5TH  DEGREE 

EXCHANGE 

44 

12 

45 

16  46  20 

PCLYFIT 

4 

3 

5 

6TH  CEGREE 

EXCHANGE 

44 

13 

45 

17  46  21 

PCLYFIT 

4 

3 

5 

7TH  CEGREE 

EXCHANGE 

44 

14 

45 

18  46  22 

1 


1 


4TH 


5TH 


S  P/^CE 
NOTE 
SPACE 
NOTE 
SPACE 

ABRIDGE  ROW  1  CF  CCLS  15  16  17  18 
SPACE  1 
NOTE 
SPACE  1 
APRINT  2 
SPACE  1 
NOTE 
SPACE  1 

APRINT  ROW  2  CCL  11  8  BY  A 

FIXED  6 
NOSUNNAR Y 


STANDARD  DEVIATIONS 


6TH 


15  8  4 


COEFFICIENTS 


UNCERTAINTIES 


HEAD 
HEAD 
HEAD 
HEAD 
PRINT 
PLCT 
HEAD 
HEAD 
HEAD 
HEAD 
TITLE2 
PRINT  19 


1/ 

2/ 

4/ 

5/ 

1 

4 

CCL 

CCL 

CCL 

CCL 


P( ATM) 

L 

PV ( AMAG  ) 
D  (AMAG) 


2 

5 

19/ 

20/ 

21/ 

22/ 


PLCT 

NOTE 

PLCT 

NOTE 

PLCT 

NOTE 


19 


20 

20 


21 

21 


0.  600 
4  TH 
5TH 
6TH 
7TF 

22 

AGAINST 


3  1.0 


DEVIATIONS 


22  21  20  AGAINST  5 


22  AGAINST  5 


DEVIATION  PLOT 


DEVIATION  PLOT 


DEVIATION  PLOT 


STOP 


7  TH 


The  array  starting  in  row  2>  col  15  having  dimensions 
8  by  4  •  See  chapter  8  for  a  discussion  of  this  command. 

The  following  eight  pages  are  an  abridgment  of  the 
printout  for  this  problem.  Brief  comments  on  the  results 
are  given  in  the  following  figures. 
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PAGE  7  CMMTAB  BF3  0  DEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 

NUMBER  OF  NCN-ZERC  WEIGHTS  =  3.4000000E  01 

POLYNOMIAL  FIT  CF  DEGREE  7  TO  FUNCTION  IN  COLUMN  4 
USING  WEIGHTS  IN  COLUMN  3 


COEFFICIENTS  ANC  THEIR  STANDARD  DEVIATIONS 


1 . C074366E  00 
-6.2508308E-03 
1.98  30401  E— 05 
-6. 2270507 E— 08 
4. 748 3951 E— 10 
-2.3975730E-12 
5.4957886E-15 
-4.2497746 E- 18 


4 . 8  398630E-04 
4  •  4390433E-05 
1. 3033790 E-06 
1  •  7255221 E-08 
1.  1776473E-10 
4 • 2975670E- 13 
7.9628235E-16 
5.8841 590E- 19 


STANDARD  DEVIATION  2 . 56 10 1 86E-04 

COVARIANCE  MATRIX 


3.57142E  00 
-3 . 14663E-0 1 
8 • 67543  E-03 
—  1 . 0  7720  E-04 
6.92704E-07 
-2.39528E-09 
2. 81592 E- 18 
4 • 22646  E-  1 2 
-5.20171 E-21 
-2.98625E-15 
3.8 1463  E-24 

SQUARE  RCOT 

1 . 88982  E  00 
1 • 67807  E-09 


3.00437E— 02 
—  8 .655  39E-04 
1.  10389E-05 
—7 • 22662E-08 
2.53083E-10 

-4.50818E-13 
9. 66738E— 24 
3 • 20882E-  16 
-7. 127C7E— 27 


2.59010E-C5 
-3.  39  32  OE— 07 
2 •  2645  8 E— 09 
-8.04523E— 12 

1.44 9 COE- 14 

- 1. C4044E— 17 
5. 2789 OE—  30 


4. 53958E-09 

—  3.07856E-1 1 
1.10  7  3  8E-  1  3 

—  2.0 14  32E-  1 6 
1.458C9E— 19 


2.11 449E-1 3 
-7.68395E-16 

1  • 40942E-1 8 

-1.02  736E  — 2 1 


OF  COVARIANCE  MATRIX  DIAGONALS 

1.73331  E-0 1  5.C8930E— 03  6.73764E-05  4.59835E-C7 

3. 109  24E-12  2 • 29759E-  15 


VARIANCE  COVARIANCE  MATRIX 


2.34243E-07 
-2. 06382  E-08 
5 .69005E- 10 
-7 • 065 18E-12 
4 • 54332  E- 14 
-1 • 57102  E-  16 
1.84691E-25 
2 • 77205  E- 19 
-3.41 170  E-28 
-1.95863E -22 
2.50194E-31 


1.9705  1  E-09 
-5.6769  IE- 1 1 
7.24019E-13 
—4 . 7  39  8 1 E-l 5 
1.65992E-17 

-2.95683E-20 
6. 34066E-3  1 
2. 10460E-23 
-4. 6745  IE-34 


1.6988CE-12 
-2. 22554E-  14 
1.4853CE— 16 
-5. 27672 E— 19 

9. 5037 5 E- 22 

-6. 82406E— 25 
3. 46233 E- 37 


2. 97743E-  16 
-2.01917E-18 
7.26313E-21 

—  1.321 16E— 2  3 

9.5633  IE-27 


1 • 38685E— 20 
-5. 03976E  — 2  3 

9. 24413E— 26 

-6.  73829E— 2  9 


Figure  5“6»  The  first  page  of  the  automatic  output  from 
the  POLYFIT  instruction. 
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SQUARE  RCOT  OF  VAR.  COVARIANCE  MATRIX  DIAGONALS 


4.83986E-04  4.43904E-05  I.30338E-06  1.72552E-08  1.I7765E-10 

4.29757E-13  7.96282E-16  5. 884 16 E- 19 


2. 3770645 E— 27 


GRAM  DETERMINANT 

FOURIER  COEFFICIENTS 

3.21676E  00  -8.94292E-01 
1.88659E-02  -1.13897E-03 

SQUAREC  FOURIER  CCEF. 

I • 03475 E  01  7.99758E-0I 

3.55924E-04  1.29724E-06 

SUM  OF  SQUARED  RESIDUALS 


7.62594E-02  8.47799E-02 

I.19327E  01 


1.58514E  00 
7.45793E-06 

RESIDUALS 

2.19 I68E-0I 
5.  I6096E-04 


7 • 85382E— 0 1 
6. 16068  E-0  6 


1.5666  3  E-0  1 
4.7767  5E-04 


8. 78644 E— 01 
—  1. 84967 E— 03 


7 • 720 1 5E— 0 1 
3. 42128 E— 06 


1. 33665E-02 
2. 7394  IE— 06 


2. 07648E— 02 
3. 24595 E— 04 


5.81549E-03 


7. 18762E— 03 


7.55 10  IE  — 03  3.63382E-C4 


1.5865  IE— 02  3. 53983E— 03 


A  (  I  *  J  )  MATRIX 


1.8 1 670E— 07 

—  1.3  1542E  — 06  1. 7  3209E-0  9 

6.79741E— 06  -2.00939E-08 

2.08623E-03  -2.15460E-05  1.05354E-C7 


1.7 1499  E-0 1 

—  2 .41 749  E-0 1 
2.7 1022E-0 1 

-3.78187E-01 
4. 96924E-0 1 
—7 • 00074E-0 1 
2. 10348E-  1 1 
9.16917  E-0  1 
—2. 42808E- 10 

—  1.29974E  00 
1.66028  E-09 

GRAM  FACTORS 


VECTOR  NCRMS 

5.83095E  00 
1.45745E  13 


1  •  428  7  IE-03 
-5 . 2  50  8  5E-03 
1.4864  IE-02 
-2.72032E-02 
5. 17966E— 02 

—  8 . 28566E-0  2 
2.  12344E— 13 
1 • 39660E-0 1 
-3. 10198E-12 


02 

12 


1.20970E  03 
5.17453E  15 


1.4346  IE— 05 
- 1 . 0265  OE— 04 
3.21180 E—  04 
— 9 . 63444E— 04 


-4.5284  IE— 03 
2.29759 E— 15 


6.9705  IE  04 
4.35240E  14 


3.65340E  05 
1.85233E  18 


6. 34616E— 05 


5.50449E  06 
l. 30587E-03 


1.20814E  08 


-4.47149E— 07 


5.77338E  08 


4.15454E  10 


5.83095E  00  6.99934E 

4.75404E  10  4.70934E 


Figure  5—7.  The  second  page  of  the  automatic  output 
from  the  POLYFIT  instruction.  The  deviations  follow  on 
the  next  page. 
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OOO  c\j_i_4>j-v0oOO 


PAGE 


8 


OMMTAB  BF 3  0  DEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 


CEVI  AT  ICNS 


-1.4875084E-04 
1.1 1289  32E-04 
— 1.2475997E-04 
9.1902912E-06 
-1.2253970E-04 
2.8879568E-04 
4. 8597530E-04 


— 5.3592026 E- 05 
7 • 290393  IE-05 
-6. 7420304 E- 05 
-4 . 0780753 E- 05 
-4.4107437E-05 
3.4866855E— 04 
5 • 5939704 E— 04 


2. 6464462 E— 05 
3. 7401915E— 06 
5. 3986907E— 05 
— 7.9721212 E- 06 
— 6.4533204E-05 
-1. 8158928 E- 04 
-5. 2925199 E- 04 


7  •  4  72 9  32 3E— 05 
-7.C504844E— 05 
1. 9038841E-04 
2. 8893352E— 05 
-4.C702522E-05 
— 5.8098882E— 04 
4. 7057867E— 05 


1. 1043251E-04 
-1.172 1253E-04 
8.9  846551 E  — 05 
-6.3952059E-05 
9. 5  386058E— 05 
— 3.3542886E-04 


STANDARD  DEVIATIONS 
5TH  6TH 

4.789  794  E-04  4.357434E-04 

COEFFICIENTS 


4  TF 

3.534788 E-C3 


1.0192846  00 
— 7.064067E— 03 
3.2006 77E-05 
-9.766715E-08 
1 . 468462E— 10 


1 . 006077E  00 
-6. 086876 E— 03 
1. 383049E-05 
3.057235E-08 
—  2. 322450 E—  10 
3 . S68405E- 13 
0. 

0. 


1 . 005033E  00 
-5. 992505 E— 03 
1.  145434E-05 
5.511257E-08 
— 3. 522392 E— 10 
6.733909 E— 13 
— 2.418529E— 16 
0. 


7  TH 

2.561C19E-04 


1.007437E  CO 
—  6 . 2508  31E— 03 
1 . 983C40E— 05 
-6.227C51E-08 
4.748395E-10 
-2.397573E-12 
5.495789E-15 
-4 • 249  7  75E-  1 8 


UNCERTAINTIES 


•624484E-03 
. 112514E-04 
. 192957E-C6 
. 693868 E— 09 
. 122565E-12 


4. 887867E-04 
2 • 903046E-05 
4. 889636E— 07 
3.3 17364E-09 
9.660277E-12 
1  .C07522E-  14 
0. 

0. 


5. 977959 E— 04 
4.473256E-05 
1.012060E-06 
9.861674 E— 09 
4 • 674077E— 1 1 
1.06  1983E— 13 
9. 252756 E—  17 
C. 


4 . 839  863E-04 
4 .439C43E— 05 
1 • 303379E— 06 
1 . 725522E-08 
1 • 17  7647E- 1 0 
4.297567E-13 
7 . 962  8  23E- 1 6 
5.884159E— 19 


Figure  5“8*  Printout  achieved  by  using  the  SPACE,  NOTE, 
ABRIDGE,  and  APRINT  following  the  automatic  printout 
from  POLYFIT. 
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PAGE  9  OMNITAB  BF 3  0  DEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 

Z  VALUE  AT  0  DEG  1  ATM  IS  0.99409 


P ( ATM) 

Z 

PV( AMAG  ) 

D  (AMAG) 

9.984160 

0.937700 

0.943279 

10.584521 

11.943140 

0.924780 

0.93028 2 

12.838187 

14.243230 

0.909320 

0.914730 

15.570959 

16.618960 

0.893000 

0.898313 

18.500181 

19.671390 

0.871490 

0.876675 

22.438626 

23.161990 

0.846060 

C. 851094 

27.214372 

26.657740 

0.819590 

0.824467 

32.333319 

30.980290 

0.785290 

0.789962 

39.217421 

35.679380 

0.745680 

0.750117 

47.565100 

40.111880 

0.705600 

0.709798 

56.511659 

45.194850 

0.655470 

0.659370 

68.542468 

50.198740 

0.600290 

0.603862 

83.129529 

54.413980 

0.547660 

0.550919 

98.769552 

58.665070 

0.486830 

0.489727 

119.791462 

61.761150 

0.436660 

0.439258 

140. 603319 

64.008679 

0.399260 

0.401636 

159.370037 

65.344110 

0.378310 

0.380561 

171.704720 

65.885130 

0.370590 

0.372795 

176.732868 

66.599979 

0.361030 

0.363178 

183.381035 

67.731689 

0.347190 

0.349256 

193.931482 

68.635119 

0.337910 

0.339921 

201.915178 

68.839379 

0.336280 

0.338281 

203.497705 

69.639079 

0.329670 

0.331632 

209.989321 

70.318230 

0.324990 

0.326924 

215.090656 

75.740230 

0.306400 

0.308223 

245.731861 

86.788980 

0.309760 

0.3116C3 

278.524155 

99.984670 

0.331220 

0.333191 

300.082367 

107.311139 

0.345370 

0.347425 

308.875748 

119.529889 

0.370760 

C. 372966 

320.484665 

146.498480 

0.429700 

0.432257 

338.915459 

174.657169 

0.492070 

C. 494998 

352.844326 

181.142719 

0.506370 

C. 509383 

355.612099 

210.809969 

0.571100 

0.574498 

366.946369 

239.104879 

0.632420 

0.636183 

375.842991 

Figure  5“9»  Results  obtained  with  a  PRINT  instruction 
preceded  by  FIXED  6« 
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PAGE  10 


CMMTAB  BF 3  0  DEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 
Z  VALUE  AT  0  DEG  1  ATM  IS  0.99409 

ABSCISSA  -  COLUMN  5 
CRDI NATES  -  COLUMN  4  { . ) f 


♦ - 4- - + - + - 4- - 4- - 4. 

O.iOOOOE  01+ 


0.86000E  00+ 


0.7200CE  00+ 


0.58CCCE  00+ 


C.44000E-00+ 


C • 30000  E-00  + 

4- - 4- - 4. - 4- - 4- - 4- - 4- - 

0.  0 . 12000E  03  0.24C00E  03  0.36000E  03 


Figure  5“10.  A  typical  OMNITAB  plot  except  that  the 
curve  was  squeezed  to  the  left  of  the  page  by  putting 
the  right  scale  limit  at  600* 
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PAGE  11  CMMTAB  BF  3  0  DEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 

Z  VALUE  AT  0  DEG  1  ATM  IS  0.99409 
DEVIATIONS 


4TH 

5TF 

6TH 

7TH 

-0.004707 

0.000046 

C. 000330 

-0.000149 

-0.003385 

0.000012 

0.000188 

-0.000054 

-0.001960 

-0.000023 

0.000042 

0.000026 

-0.000638 

-0.000056 

-C. 000086 

0.000075 

0.000850 

-0.000073 

-0.000198 

0.000110 

0.002237 

-0.000070 

-0.000267 

C. 000111 

0.003266 

-0.000054 

-0.000285 

0.000073 

0.004029 

-0.000006 

-0.000229 

0.C00004 

0.004181 

0.000074 

-0.000085 

-C. 000071 

0.003629 

0.000155 

C. 000098 

-0.000117 

0.002113 

0.000207 

0.000299 

-0.000125 

-0.000280 

0.000161 

0.000395 

-C. 000067 

-0.002760 

0.000032 

0.000335 

0.000054 

-0.004988 

-0.000181 

0.000074 

0.000190 

-0.005459 

-0.000422 

-0.000316 

0.000090 

-0.004174 

-0.000383 

-0.000422 

C.000009 

-0.002652 

-0.000251 

-0.000361 

-0.000041 

-0.001876 

-0.000130 

-C. 000259 

-0.000008 

— 0 .000801 

0.000028 

-0.000118 

0.000029 

0.000801 

0.000121 

-0.000025 

-0.000064 

0.001986 

0.000183 

C. 000057 

-C. 000123 

0.002301 

0.000282 

0.000161 

-C. 000044 

0.003199 

0.000332 

C. 000242 

-C. 000065 

0.003871 

0.000393 

0.000334 

-0.000041 

0.005882 

0.000355 

0.000545 

0.000095 

0.003431 

-0.000128 

0.000221 

0.000289 

-0.0C0058 

-0.000279 

-0.000033 

0.000349 

-0.002050 

-0.000741 

-0.000590 

-0.000182 

-0.004044 

-0.000888 

-C. 000896 

-0.000581 

-0.004669 

0.000017 

-0.000237 

-0.000335 

-0.002304 

0.001194 

0.000893 

0.000486 

-0.001631 

0.001271 

0.000990 

0.000559 

0.000905 

-0.000277 

-0.000310 

-0.000529 

0.005756 

-0.000895 

-0.000482 

0.000047 

Figure  5—11.  Results  from  accumulating  the  deviations. 
Note  that  the  deviations  are  not  random  even  for  the  7th 
degree  polynomial.  This  fact  is  confirmed  in  the 
following  two  figures. 
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PAGE  13  CMMTAB  BF 3  0  DEGREE  PV  VS  D  IN  AMAGAT  UNIT  10/16/64 

Z  VALUE  AT  0  DEG  1  ATM  IS  0.99409 
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Figure  5—12-  Comparison  of  deviations  from  the  fit  to  a 
5th,  6th,  and  7th  degree  polynomial.  Note  the  larger 
deviations  at  the  higher  pressures. 


139 


10585E  02  0.83636E  02  0.15669E  03  0.22974E  03  0.30279E  03  0.37584E  03 

DEVIATION  PLOT 


ABSCISSA  -  COLUMN  5 
ORDINATES  -  COLUMN  22 


m 

O 


VO  | 


UJ 

4-  20 
I  *n 


PO 


O 


>0 

>0  O' 
— <  o 
'v  >r 
o  O' 
CT' 


O 


H- 

<  H- 

o  < 


—  Q 


Q  O 


00  < 
> 

UJ 

cl  —I 


UJ 

01  NJ 

o 

LU 

Q 


O 

rn 

Li. 

CD 


ro 

O 


UJ 

*- 

h- 

C' 

(NJ 

CNJ 

O 


CL 


(NJ  H- 
O  < 


I  UJ  > 
|  O  UJ 

+  no 
l  >o 
I  m 
I  =o 


o 


4-  I  I  I  I  I  I  I  I 

m 

o 


o 

CJ' 

in 

in 


(NJ 

cn 

m 

m 


o 


o 


(NJ 

o 


till 


o 


Figure  5—13.  Plot  of  the  deviations  of  the  data  from  a 
7th  degree  polynomial.  Note  how  the  plot  dramatizes  the 
remaining  systematic  deviations  at  the  lower  end  and  the 
large  deviations  at  the  higher  end. 
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58099E-03+ 


Problem  5  —  2 


Generate  a  table  of  sin  0  for  0°  to  40°  in  2° 
intervals  and  difference  the  table  so  as  to  determine  a 
suitable  integration  formula* 


The  OMNITAB  instructions  are  as  follows^ 


OMNITAfi  FRCELEM  5-2 
GENERATE  0.  2.  40.  STORE  IN  1 
SIND  OF  CCL  1  ,  STORE  2 
DIFFERENCE  CCL  2  FOR  X  IN  COL  1 
FIXEC  6 
NOSURH ARY 

PRINT  I  2  41  42  43  44  45  46 
STOP 


The  results  of  this  calculation  are  given  in  the 
pages  immediately  following.  The  first  is  the  automatic 
printout  and  the  page  following  is  the  same  results 
printed  in  fixed  format*  Note  how  much  easier  it  is  to 
assess  the  behavior  of  the  differences  in  fixed  format* 
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Figure  5—14.  Automatic  printout  from  the  DIFFER 
instruction.  The  last  line  is  the  means  of  the  absolute 
values* 
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ABSOLUTE  VALUES  OF  DIFFERENCES 
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Problem  5—3 


Generate  a  table  of  values  of  y  =  x5  for  even 
values  of  x  between  0  and  50  and  interpolate  for 
integral  values  using  a  linear,  cubic,  quart ic,  and 
quint ic  approximation. 


The  OMNITAB  instructions  are  as  follows* 


0MNITA8  PROBLEM  5-3 

TITLE1  INTERPOLATION  CHECK  7/8/64 

NOSUMMARY 

GENERATE  2.<2.)50.  IN  COL  1 
RAISE  1  5.  2 
GENERATE  U(l.)50.  3 
RAISE  3  5.  4 
INTERP  1  2  25  50  3  2  5 

INTERP  1  2  25  50  3  4  6 

INTERP  1  2  25  50  3  5  7 

INTERP  1  2  25  50  3  6  8 

HEAD  COL  1/  X 

HEAD  CCL2/  Y 

HEAD  CCL3/  NEW  X 

HEAD  CCL4/  COMPUTED  Y 
HEAD  COL  5/  LINEAR 
HEAD  CCL  6/  CUBIC 
HEAD  CCL  7/  QUARTIC 
HEAD  CCL  8/  QUINTIC 
PRINT  12348 
PRINT  34567 
STOP 


From  the  following  page  it  should  be  obvious  that 
except  for  end  effects,  the  quint ic  approximation  is 
exact  as,  indeed,  should  be*  The  next  page  shows  the 
reduction  in  accuracy  on  going  to  lower  order 
interpolation.  Note  should  be  taken  that  even  with 
linear  interpolation  the  answers  for  even  values  of  x 
are  quite  correct.  This  is  a  characteristic  of  the 
program,  namely  that  it  does  not  interpolate  for  a  point 
which  is  already  tabulated. 
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PAGE  1  CMMTAB  PROBLEM  5-3 

INTERPOLATION  CHECK  7/8/64 


X 

Y 

NEW  X 

COMPUTED 

Y 

QUINTIC 

2.000000E 

00 

3 • 200000  E 

01 

1. OOOOOOE 

00 

1  •  OOOCOOE 

00 

9. 916992E- 

-01 

4. OOOOOOE 

00 

1  • 0  24000  E 

03 

2. OOOOOOE 

00 

3 • 200000E 

01 

3 . 20000  OE 

01 

6. 000000E 

00 

7.775999E 

03 

3. OOOOOOE 

00 

2.430000E 

02 

2.430013E 

02 

8.C00000E 

00 

3.276799E 

04 

4. OOOOOOE 

00 

1.024C00E 

03 

1 . 024000E 

03 

1. OOOOOOE 

01 

9 • 999997  E 

04 

5. OOOOOOE 

00 

3 • 124999E 

03 

3.  124999E 

03 

1.200000E 

01 

2.488319E 

05 

6. OOOOOOE 

00 

7 • 775999E 

03 

7. 775999E 

03 

1 . 400000E 

01 

5  •  378237E 

05 

7. OOOOOOE 

00 

1  .68C699E 

04 

1 • 680700E 

04 

1 . 600000E 

01 

1.C48576E 

06 

8. OOOOOOE 

00 

3.276799E 

04 

3.276799E 

04 

I  •  8CC000E 

01 

1  • 889567E 

06 

9. OOOOOOE 

00 

5.904899E 

04 

5. 904898E 

04 

2. OOOOOOE 

01 

3.  199999E 

06 

1. OOOOOOE 

01 

9 • 999997E 

04 

9.999997E 

04 

2. 200000E 

01 

5. 153630E 

06 

1. 100000E 

01 

1.610510E 

05 

1 . 61051 OE 

05 

2 . 400000  E 

01 

7.962621E 

06 

1 . 200000E 

01 

2.488319E 

05 

2.488319E 

05 

2.600000E 

01 

1. 188137E 

07 

1 • 300000E 

01 

3.7 1 2929E 

05 

3.712928E 

05 

2.8CC000E 

01 

1.721036E 

07 

1 . 400000E 

01 

5.378237E 

05 

5.378237E 

05 

3. OOOOOOE 

01 

2.429999E 

07 

1.500000E 

01 

7.593748E 

05 

7 • 593747E 

05 

3 • 200000  E 

01 

3 • 3  55442E 

07 

1 . 60C000E 

01 

1.048576E 

06 

1. C48576E 

06 

3.400000E 

01 

4 . 543540E 

07 

1 • 70C000E 

01 

1.419856E 

06 

1.419857E 

06 

3.600000E 

01 

6.046615E 

07 

1 . 800000E 

01 

1.889567E 

06 

1. 889567E 

06 

3.8CC000E 

01 

7.923513E 

07 

1 . 900000E 

01 

2.476098E 

06 

2 . 476098E 

06 

4. OOOOOOE 

01 

1 . C23999E 

08 

2. OOOOOOE 

01 

3. 199999E 

06 

3. 199999E 

06 

4.200000E 

01 

1.306912E 

08 

2.100000E 

01 

4.084C99E 

06 

4 • 084099E 

06 

4. 400000E 

01 

1.649162E 

08 

2 • 200000E 

01 

5.153630E 

06 

5. 153630E 

06 

4. 600000E 

01 

2.059629E 

08 

2 • 300000E 

01 

6.436341E 

06 

6. 43634  IE 

06 

4. 8CC000E 

01 

2 • 548039E 

08 

2 • 400000E 

01 

7.962621E 

06 

7 • 96262 1 E 

06 

5. OOOOOOE 

01 

3. 124999E 

08 

2 • 50C000E 

01 

9.765621E 

06 

9 . 76562 1 E 

06 

0. 

0. 

2 • 600000E 

01 

1.188137E 

07 

1. 188137E 

07 

0. 

0. 

2 • 700000E 

01 

1.434890E 

07 

1 . 434890E 

07 

0. 

0. 

2 • 800000E 

01 

1.72 1C36E 

07 

1. 721036E 

07 

0. 

0. 

2 • 900000E 

01 

2.051114E 

07 

2 . 05 1 1 1 4fc 

07 

0. 

0. 

3. OOOOOOE 

01 

2.429999E 

07 

2 • 429999E 

07 

0. 

0. 

3. 100000E 

01 

2.862914E 

07 

2.862914E 

07 

0. 

0. 

3 • 200000E 

01 

3 . 355442E 

07 

3 • 355442E 

07 

0. 

0. 

3 • 300000E 

01 

3.913537E 

07 

3.913537E 

07 

0. 

0. 

3 • 400000E 

01 

4 . 543540E 

07 

4 . 54354  OE 

07 

0. 

0. 

3 . 50C000E 

01 

5 • 252185E 

07 

5.252185E 

07 

0. 

0. 

3 • 60C000E 

01 

6.046615E 

07 

6. 046615E 

07 

0. 

0. 

3 • 700000E 

01 

6.934393E 

07 

6. 934392E 

07 

0. 

0. 

3.800000E 

01 

7.923513E 

07 

7.923513E 

07 

0. 

0. 

3 • 90C000E 

01 

9.022417E 

07 

9.022415E 

07 

0. 

0. 

4. OOOOOOE 

01 

1 . 023999E 

08 

1 . 023999E 

08 

0. 

0. 

4. 100000E 

01 

1.158561E 

08 

1. 158561E 

08 

0. 

0. 

4 • 200000E 

01 

1 .306512E 

08 

1.306912E 

08 

0. 

0. 

4 • 300000E 

01 

1.47CC84E 

08 

1.470084E 

08 

0. 

0. 

4.400000E 

01 

1 .649162E 

08 

1 • 649162E 

08 

0. 

0. 

4.500000E 

01 

1  • 845280E 

08 

1 . 845280E 

08 

0. 

0. 

4 . 600000E 

01 

2.059629E 

08 

2.059629E 

08 

0. 

0. 

4.700000E 

01 

2.293449E 

08 

2 • 293449E 

08 

0. 

0. 

4. 800000E 

01 

2 . 548C39E 

08 

2.548039E 

08 

0. 

0. 

4 • 900000E 

01 

2 • 824752E 

08 

2. 824752E 

08 

0. 

0. 

5. OOOOOOE 

01 

3.124999E 

08 

3. 124999E 

08 
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PAGE  2  CMNITAB 

INTERPOLATION  CHECK 


PROBLEM  5 
7/8/64 


3 


Y  LINEAR 


NEW  X 


l.OOOOOOE 

00 

2 • OOOOOOE 

00 

3 . OOOCOCE 

CO 

4.000C00E 

00 

5. OOOCOCE 

CO 

6. OOOOOOE 

00 

7. OOOOOOE 

00 

8. OOOOOOE 

00 

9. OOOOOOE 

CO 

l.OOOOOOE 

01 

1. 100000E 

01 

1 . 200000E 

01 

1.30000CE 

01 

1 • 400000  E 

Cl 

1.500000E 

01 

1.600000E 

01 

1. 700000E 

01 

1  •  800000;E 

01 

1 • 900000E 

01 

2. OOOOOOE 

01 

2.  100000E 

01 

2.2 COOOOE 

01 

2. 300000E 

01 

2.400000E 

01 

2. 500000C 

01 

2.600000E 

01 

2. 700000E 

01 

2. 8CC000E 

Cl 

2.900000E 

01 

3. OOOOOOE 

01 

3. 100000E 

Cl 

3.200000E 

01 

3. 3CC000E 

01 

3. 40G000E 

01 

3.500C00E 

01 

3.600000E 

01 

3.700000E 

01 

3. 8CC000E 

01 

3 • 900000E 

01 

4. OOOOOOE 

01 

4. 1C0C00E 

01 

4. 200000E 

01 

4.300000E 

01 

4.400000E 

01 

4. 500000E 

01 

4. 600000E 

01 

4. 700000E 

01 

4. 8C0000E 

01 

4.9CG000E 

01 

5. OOOOOOE 

01 

COMPUTED 

l.COOOOOE  00 
3. 200000E  01 
2.430000E  02 
1 • C 24000E  03 
3.1 24999E  03 
7 . 7  75999  E  03 
1.680699E  04 
3.276799E  04 
5.904899E  04 
9.9  99997  E  04 

1.610510E  05 
2.488319E  05 
3.712929E  05 
5 . 378237E  05 
7 . 593748 E  05 

1 .  C48576E  06 
1.419856E  06 
1  •  889567E  06 
2.476098E  06 
3 . 199999E  06 

4. C84099E  06 

5.  153630E  06 
6. 43634  IE  06 
7 • 96262  IE  06 
9.765621E  06 
1. 188137E  07 
1.434890E  07 
1.721 03 6E  07 

2. C51114E  07 
2.4 29999E  07 

2.862914E  07 
3. 355442E  07 
3.913537E  07 
4. 543540E  07 
5. 252185E  07 

6. C46615E  07 
6.934393E  07 
7.923513E  07 
9.C22417E  07 
1.C23999E  08 

1 . 15856  IE  08 
1.306912E  08 
1 . 470084E  08 
1.649162E  08 
1.845280E  08 
2.059629E  08 
2 • 29  3449 E  08 
2 • 548039E  08 
2.824752E  08 
3 . 124999E  08 


— 4 . 639999E 

02 

3 . 200000E 

01 

5 • 279999E 

02 

1 . 024000E 

03 

4. 399999E 

03 

7.775999E 

03 

2.027200E 

04 

3.276799E 

04 

6.638398E 

04 

9  •  999997E 

04 

1.744160E 

05 

2.488319E 

05 

3.933278E 

05 

5*  378237E 

05 

7.93 1997E 

05 

1  • 048576E 

06 

1 . 469072E 

06 

1 . 889567E 

06 

2.544783E 

06 

3. 199999E 

06 

4.176815E 

06 

5. 153630E 

06 

6.558126E 

06 

7 • 96262  IE 

06 

9.92  1996E 

06 

1  .  188137E 

07 

1 • 454586E 

07 

1 .721036E 

07 

2.075517E 

07 

2.429999E 

07 

2.892720E 

07 

3 • 355442E 

07 

3 • 949491 E 

07 

4.543540E 

07 

5.295077E 

07 

6.046615E 

07 

6.985064E 

07 

7.923513E 

07 

9.081754E 

07 

1 • 023999E 

08 

1.165456E 

08 

1.306912E 

08 

1.478037E 

08 

1.649162E 

08 

1 . 854395E 

08 

2 . 059629E 

08 

2.303834E 

08 

2.548039E 

08 

2 . 836519E 

08 

3. 124999E 

08 

CUBIC 


-2.203999E 

03 

3.200000E 

01 

5 • 879998E 

02 

1 .024C00E 

03 

2 . 900C0GE 

03 

7 • 775999E 

03 

1 .649200E 

04 

3.276799E 

04 

5.864398E 

04 

9.999997E 

04 

1.605560E 

05 

2.488319E 

05 

3 . 707C78E 

05 

5.378237E 

05 

7 . 586997E 

05 

1.048576E 

06 

1.419C92E 

06 

1.889567E 

06 

2.475243E 

06 

3.199999E 

06 

4.083155E 

06 

5.1 53630E 

06 

6.435306E 

06 

7.962621E 

06 

9 • 764496E 

06 

1.188137E 

07 

1.434768E 

07 

1.721C36E 

07 

2.050983E 

07 

2.429999E 

07 

2.862774E 

07 

3 • 3  55442E 

07 

3.913389E 

07 

4 • 543540E 

07 

5 . 252G27E 

07 

6.046615E 

07 

6 • 934226E 

07 

7.923513E 

07 

9 . 022240E 

07 

1.023  9  99E 

08 

1 • 158543E 

08 

1 .3C6912E 

08 

1.470064E 

08 

1.649162E 

08 

1  • 845260E 

08 

2.059629E 

08 

2 . 293428E 

08 

2 . 548C39E 

08 

2.824787E 

08 

3. 124999E 

08 

QUARTIC 

9.459993E  02 
3 • 200000E  01 
1.380001E  02 
1 . 0240C0E  03 
3 • 1 70000E  03 
7.775999E  03 
1 • 6852C0E  04 
3 • 276799E  04 
5. 909398E  04 
9.999997E  04 

1.61 096  OE  05 
2.488319E  05 
3. 713378E  05 
5 . 37823 7£  05 
7 • 594197E  05 
1 • 048576E  06 
1.4199C2E  06 
1 • 889567E  06 
2 . 476143E  06 
3 • 199999E  06 

4. 084145E  06 
5. 153630E  06 
6.436386E  06 
7 • 96262 IE  06 
9. 765666E  06 
1.188137E  07 
1 . 434894E  07 
1 . 721036E  07 
2.051118E  07 
2. 429999E  07 

2.862918E  07 
3.355442E  07 
3.91 3542E  07 
4 . 543540E  07 
5.252189E  07 
6.C46615E  07 
6.934397E  07 
7.923513E  07 
9 • 022420E  07 
1 • 023999E  08 

1 . 158562E  08 
1.306912E  08 
1 . 470084E  08 
1.649162E  08 
1.84528  IE  08 
2.059629E  08 
2 • 293449E  08 
2.548039E  08 
2.824752E  08 
3 . 124999E  08 
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Problem  5  —  4 


Compute  the  derivatives  of  y  -  x*  for  50  values  of 
x  using  a  5  point  formula* 


The  OMNITAB  instructions  are  as  follows* 


CMNITAB  PROBLEM  5-4 

NOSUFMARY 

GENERATE  1.(1. )10.  IN  1 
RAISE  1  TO  4.  POWER  STORE  IN  3 
GENERATE  .21.2)10.  IN  COL  2 
RAISE  2  TO  3.  POWER  » MULT  BY  4.  ADO  TO  4 
DERIVATIVE  CF  1  3  10  BY  50  2  5  5 
HEAD  1/  X 

HEAD  3/  X  TO  4 
HEAD  2/  NEW  X 
HEAD  4/  4X  TO  3 
PRINT  13245 
STOP 


The  following  page  shows  the  results*  The  column 
headed  4X  TO  3  represents  the  correct  value  and  column  5 
contains  the  computed  values* 
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PAGE 


1 


OMNI T  A  8 


PROBLEM  5 


-  4 


X 

1 • 000000E  00 
2.000000E  00 
3.000000E  00 
4.000000E  00 
5. OOOOOOE  00 
6 • 000000E  00 
7. OOOOOOE  00 
8. OOOOOOE  00 
9. OOOOOOE  00 
1. OOOOOOE  01 

0. 

0. 

0. 

0. 

0. 

0, 

0. 

0. 

0. 

0. 


X  TO  4 

1. OOOOOOE  00 
1 . 600000E  01 
8 . 100000E  01 
2 . 560000 E  02 
6. 249999E  02 

1  •  296000 E  03 

2  .  400999E  03 
4 . C96000E  03 
6.560999E  03 
9 .99999  7 £  03 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


NEW  X 


2 . OOCOOOE- 

•01 

4.000000E- 

-01 

6 • 00C000E- 

-01 

8 . 00G000E- 

-01 

1C.OOOOOOE- 

-01 

1 • 200000E 

00 

1.40C000E 

00 

1 .600000E 

00 

1 .800000E 

00 

2. OOOOOOE 

00 

2.20C000E 

00 

2.40C000E 

00 

2.60C000E 

00 

2.80C000E 

00 

3. OOOOOOE 

00 

3  •  200000E 

00 

3.40C000E 

00 

3 • 60C000E 

00 

3.80C000E 

00 

4. OOOOOOE 

00 

4 . 20C000E 

00 

4 • 400000E 

00 

4.600000E 

00 

4 . 800000E 

00 

5. OOOOOOE 

00 

5.200000E 

00 

5.400000E 

00 

5 • 60C000E 

00 

5.800000E 

00 

6. OOOOOOE 

00 

6 . 200000E 

00 

6 . 40C000E 

00 

6 . 600000E 

00 

6.80C000E 

00 

7. OOOOOOE 

00 

7 . 20C000E 

00 

7.40C000E 

00 

7 . 60C000E 

00 

7 • 80C000E 

00 

8. OOOOOOE 

00 

8.20C000E 

00 

8 • 40C000E 

00 

8 • 60C000E 

00 

8 • 800000E 

00 

9. OOOOOOE 

00 

9 . 20C000E 

00 

9.40C000E 

00 

9 • 600000E 

00 

9 . 800000E 

00 

1. OOOOOOE 

01 

4X  TO  3 


3 • 200C00E- 

-02 

2 .5600006- 

-01 

8 . 640CC0E- 

-01 

2 • 048C00E 

CO 

4. OOOOOOE 

00 

6.912000E 

00 

1.097600E 

01 

1 . 6384C0E 

01 

2.332800E 

01 

3 • 199999E 

01 

4.259200E 

01 

5  •  529599E 

01 

7.030399E 

01 

8.780799E 

01 

1.080C00E 

02 

1 .310720E 

02 

1.572160E 

02 

1.866240E 

02 

2  •  194880E 

02 

2  •  560000E 

02 

2.963519E 

02 

3.407360E 

02 

3.893440E 

02 

4.423679E 

02 

4.999999E 

02 

5.62431 9E 

02 

6.298559E 

02 

7 • 024639E 

02 

7 • 804479E 

02 

8 . 639999E 

02 

9.533U9E 

02 

1.048576E 

03 

1.149984E 

03 

1 . 257728E 

03 

1 .372C0CE 

03 

1 .492992E 

03 

1.620896E 

03 

1.755904E 

03 

1 • 898208E 

03 

2.047999E 

03 

2.205472E 

03 

2.37C816E 

03 

2.544224E 

03 

2.725887E 

03 

2.916C00E 

03 

3 • 114751E 

03 

3.322335E 

03 

3 . 538943E 

03 

3.764767E 

03 

3 • 999999E 

03 

COLUMN  5 

3. 212738E-02 
2.5609596-01 
8 . 640  82  3E-0 1 
2.048038E  00 
4.000029E  00 
6. 912006E  00 
1.097600E  01 
1 • 638399E  01 
2.332799E  01 
3 • 199999E  01 

4. 259199E  01 
5 • 529599E  01 
7. 030399E  01 
8. 780799E  01 
1 • 080000E  02 
1.310720E  02 
1.57216 OE  02 
1 • 866240E  02 
2. 194879E  02 
2 • 559999E  02 

2.963518E  02 
3.407358E  02 
3.893439E  02 
4 . 423679E  02 
5. OOOOOOE  02 
5.624323E  02 
6. 298561E  02 
7.024639E  02 
7.804478E  02 
8.639997E  02 

9.533111E  02 
1 • 048575E  03 
l.  149983E  03 
1.257728E  03 
1 . 372000E  03 
1.492992E  03 
1 . 620896E  03 
1 • 755904E  03 
1.8982C8E  03 
2. 048001E  03 

2.205472E  03 
2 . 370816E  03 
2.544224E  03 
2.725887E  03 
2 • 91600 OE  03 
3.114750E  03 
3 . 322334E  03 
3. 538942E  03 
3.764765E  03 
3 • 999996E  03 
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Problem  5 


5 


Prepare  a  check  on  the  ability  of  the  program  to 
compute  the  integral  of  y  =  5x*  for  tabulated  values  of 
x  =  1*  (  1*  )  50* 

The  OMNITAB  instructions  are  as  follows • 


OMNITAB  PRCBLEM  5-5 

NOSUP MARY 

GENERATE  I.  1*  50.  1 
RAISE  I  4.  5.  2 
RAISE  1  5.  3 
HEAD  CCL  1/  X 

HEAD  CCL  2/  5X  TO  4 
HEAD  CCL  3/  X  TO  5 
LAGINT  2  3  1.  4 
LAGINT  2  6  1.  5 
PRINT  1234 
PRINT  12345 
STCP 


Note  the  results  on  the  following  page*  These  show 
the  quadratic  approximation  to  be  inaccurate  and  the 
quint ic  approximation  to  be  exact* 
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PAGE 
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OMMTAB 


PROBLEM  5 


5 


X 

5X  TO  4 

X  TO  5 

COLUMN  4 

COLUMN  5 

1  •  OOOOOOE 

00 

5. OOOOOOE 

00 

1. OOOOOOE 

00 

0. 

0. 

2. OOOOOOE 

00 

8. OOOOOOE 

01 

3 • 200000E 

01 

2 . 166667E 

01 

3. 100006E 

01 

3. OOOOOOE 

00 

4 • 050000E 

02 

2.43C000E 

02 

2.433  3  33E 

02 

2. 4200C0E 

02 

4. OOOOOOE 

00 

1.280000E 

03 

1.024000E 

03 

1 .040C00E 

03 

1 . 023000E 

03 

5. OOOOOOE 

00 

3. 124999E 

03 

3.124999E 

03 

3.16 1666E 

03 

3. 124000E 

03 

6. OOOOOOE 

00 

6 . 4  80000  E 

03 

7 • 775999E 

03 

7 . 838332E 

03 

7. 774999E 

03 

7. OOOOOOE 

00 

1 • 200500E 

04 

1 • 68C699E 

04 

1 • 690GC0E 

04 

1 . 680600E 

04 

8. OOOOOOE 

CO 

2 . C48000E 

04 

3.276799E 

04 

3 • 289666E 

04 

3 • 276699E 

04 

9. OOOOOOE 

00 

3. 280500E 

04 

5.904899E 

04 

5.921832E 

04 

5 . 904799E 

04 

1. OOOOOOE 

01 

4.999999E 

04 

9 • 999997E 

04 

1.0021 50E 

C5 

9. 999898E 

04 

1. 100000E 

01 

7.320498E 

04 

1.61C510E 

05 

1.613166E 

05 

1 .610500E 

05 

1.200000E 

01 

1 . 036800E 

05 

2.488319E 

05 

2.491533E 

05 

2 . 4883C9E 

05 

1 • 300000  E 

01 

1 . 428050E 

05 

3.712929E 

05 

3.716749E 

05 

3. 712919E 

05 

1  • 400000E 

01 

1 . 920799E 

05 

5 . 378237E 

05 

5.382715E 

05 

5. 378229E 

05 

1 . 500000  E 

01 

2.531250E 

05 

7.593748E 

05 

7.598931E 

05 

7. 593738E 

05 

1.600000E 

01 

3. 276800E 

05 

1 . 048576E 

06 

1 .049170E 

06 

1. 048575E 

06 

1.700000E 

01 

4. 176049E 

05 

1.419856E 

06 

1.420531E 

06 

1 • 419856E 

06 

1.8CC000E 

01 

5 • 248799E 

05 

1 .889567E 

06 

1 .89C328E 

06 

1. 889566E 

06 

1.900000E 

01 

6.5 16049  E 

05 

2 . 476098E 

06 

2.476949E 

06 

2.476097E 

06 

2. OOOOOOE 

01 

7.999997E 

05 

3. 199999E 

06 

3 . 200946E 

06 

3. 199998E 

06 

2. 100C0CE 

01 

9 . 7  24046E 

05 

4.084099E 

06 

4.085147E 

06 

4. 084099E 

06 

2.200000E 

01 

1. 171280E 

06 

5. 153630E 

06 

5.154783E 

06 

5. 153629E 

06 

2. 300000E 

01 

1. 399205E 

06 

6.436341E 

06 

6 . 437605E 

06 

6.436340E 

06 

2 • 400000E 

01 

1.658880E 

06 

7.962621E 

06 

7.964C01E 

06 

7. 962621E 

06 

2 • 500000E 

01 

1.953125E 

06 

9 • 76562  IE 

06 

9.767122E 

06 

9 • 76562  IE 

06 

2 • 600000E 

01 

2.2  84879E 

06 

1. 188137E 

07 

1. 188300E 

07 

1. 188137E 

07 

2 • 700000E 

01 

2 • 657204E 

06 

1 .434890E 

07 

1 . 435C66E 

07 

1 • 434890E 

07 

2 . 8C0000E 

01 

3. 073279E 

06 

1.721036E 

07 

1 . 721226E 

07 

1. 721036E 

07 

2.900000E 

01 

3.536404E 

06 

2.051114E 

07 

2.051318E 

07 

2.051114E 

07 

3. OOOOOOE 

01 

4.049999E 

06 

2.429999E 

07 

2.430217E 

07 

2. 429999E 

07 

3. 100000E 

01 

4.6 17604E 

06 

2.862914E 

07 

2.863147E 

07 

2.862914E 

07 

3.200000E 

Cl 

5. 242879E 

06 

3.35  5442  E 

07 

3 . 35569  IE 

07 

3. 355442E 

07 

3.300000E 

01 

5 • 929603E 

06 

3.91 3537E 

07 

3.913803E 

07 

3.913538E 

07 

3 • 400000E 

01 

6.681678E 

06 

4.543540E 

07 

4.543822E 

07 

4 . 54354 1 E 

07 

3.500000E 

01 

7.503123E 

06 

5.252185E 

07 

5.252484E 

07 

5.252186E 

07 

3.600000E 

01 

8 • 398077E 

06 

6 .046615E 

07 

6.046932E 

07 

6. 046616E 

07 

3.700000E 

01 

9 . 370803E 

06 

6.934393E 

07 

6.934727E 

07 

6. 934393E 

07 

3.800000E 

01 

1.C42568E 

07 

7.923513E 

07 

7.923867E 

07 

7.923514E 

07 

3.900000E 

01 

1. 156720E 

07 

9.022417E 

07 

9.022  7  89E 

07 

9.022417E 

07 

4. OOOOOOE 

01 

1.280000E 

07 

1.023999E 

08 

1.024C39E 

08 

1.024000E 

08 

4.100000E 

01 

1 . 4 12880E 

07 

1 . 158561E 

08 

1 • 158603E 

08 

1.  158562E 

08 

4. 200000E 

01 

1 . 555847E 

07 

1.306912E 

08 

1 . 306955E 

08 

1.306912E 

08 

4. 300000E 

01 

1 . 709400  E 

07 

1 .47C084E 

08 

1.470129E 

08 

1 • 470084E 

08 

4.400000E 

01 

1.874048E 

07 

1.649162E 

08 

1 . 649209E 

08 

1 • 649162E 

08 

4, 500000E 

01 

2.050312E 

07 

1 • 845280E 

08 

1 • 845330E 

08 

1 • 84528  IE 

08 

4.600000E 

01 

2.238728E 

07 

2.059629E 

08 

2.059681E 

C  8 

2.059629E 

08 

4.700000E 

01 

2.439840E 

07 

2.293449E 

08 

2.293503E 

C  8 

2.293449E 

08 

4. 800000E 

01 

2.654207E 

07 

2.548039E 

08 

2.548C95E 

08 

2. 548039E 

08 

4.900000E 

01 

2. 882400E 

07 

2.824752E 

08 

2.824811E 

08 

2.824752E 

08 

5. OOOOOOE 

01 

3. 124999E 

07 

3 • 124999E 

08 

3. 125C60E 

08 

3. 124999E 

08 
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Problem  5 


6 


Find  the  maxima  and  minima*  if  any,  of  the  K  given 
by  the  following  equation. 


K  =  -.008  +  • 00004462T  +  5-784.10  8T2  +  2- 441- IQ11 

(T4’184.B2) 

+  (-  173  +  -  001229T  -  7.493-10  ?T2) 

B 

********** 

CMNITAB  PROBLEM  5-6 

NOSUMMARY 

TITLE1  MAXIMA  AND  MINIMA  IN  A  THERMAL  CONDUCTIVITY  OF  STEAM  CORRELATION 
READ  TEMP  IN  1,  B  IN  3 
0  0.9904 

50  1.0033 

100  1 . 0336 

150  1.0782 

200  1.1391 

250  1.2251 

300  1.360 

350  1.665 

375  7.68 

400  9.95 

425  11.47 
450  12.71 
475  13.79 
5CC  14.78 
550  16.55 
600  18.16 
650  19.67 
700  21.11 
750  22.50 
800  23.85 
DIVIDE  1.  3  3 

ADC  273.15  TO  1  STORE  IN  2 

SUBTRACT  .008  FROM  4  STORE  IN  4 

MULT  4.462E-5  BY  2,  BY  1.  AND  ADD  TO  4 

MULT  5 • 784 E— 8  BY  2,  BY  2,  AND  ADD  TO  4 

SUBT  .173  FRCM  5  STORE  5 

MULT  1.229E-3  BY  1,  BY  1.  AND  ADD  TO  5 

MULT  —7. 493 E— 7  BY  1,  BY  1,  AND  ADD  TO  5 

MULT  3  BY  5,  EY  1.  AND  ADC  TO  4 

MULT  2.441E11  BY  3,  BY  3  AND  ADD  TO  6 

ACC  4.184  TO  7,  STORE  IN  7 

RAISE  I  TO  7,  STORE  IN  8 

DIV  6  BY  8,  MULT  BY  1.,  ANC  ACD  TO  4 

TITLE2  PRESSURE  2C0  BAR 

HEAD  COL  1/  T-  THETA 

HEAD  CCL  4/  K 

PRINT  1  4 

PLCT  4  AGAINST  1 

MAXMIN  X  IN  1,Y  IN  4,  STORE  XMAX  IN  9,YMAX  IN  1C,X  MIN  IN  11, Y  MIN  IN  12 
HEAD  9/  J  -  THETA 
HEAD  10/MAXIMA  OF  5 
HEAD  CCL  11/  T  -  THETA 
HEAD  CCL  12/MINIMA  OF  K 
PRINT  9  10  11  12 
STOP 
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*  *  *  RESULTS  *  *  * 


PAGE  1  GMM  TAB  PROBLEM  5-6 

MAXIMA  ANC  MINIMA  IN  A  THERMAL  CONDUCTIVITY  OF  STEAM  CORRELATION 

PRESSURE  200  BAR 


T-  THETA 

K 

0. 

-1.661734E-01 

5  •  OCOOOOE 

01 

1.888920E  04 

l.OOOOOOE 

02 

9, 791420E  02 

1  • 500000E 

02 

1 • 649856E  02 

2.000000E 

02 

4.441788E  01 

2.50000CE 

02 

1,5 17707E  01 

3.000000E 

02 

5.8  35350E  00 

3.500000E 

02 

2* 138493E  00 

3.750000E 

02 

1.393058E-01 

4.000000E 

02 

1.C01979E-01 

4.250000E 

02 

8 • 867436E— 02 

4,5000006 

02 

8.445160E-02 

4.750C00E 

02 

8 . 3  39784E-02 

5*  OCOOOOE 

02 

8.396775E-02 

5.50C000E 

02 

8 . 766397E-02 

6,000000c 

02 

9 • 3042 1 3  E-02 

6 , 500000E 

02 

9.927883  E— 02 

7 • OOOOOOE 

02 

1 . C60465E— 01 

7.500000E 

02 

1. 131980E-01 

8, OOOCOCE 

02 

1 • 2C6653E-01 

PAGE  3  GMMTAB  PROBLEM  5-6 

MAXIMUM  ANC  MINIMUM  OF  COLUMN  4 


X  =  5.066530E  01 
X=  4.787250E  02 


Y=  1  • 889246E  04  IS  A  MAXIMUM 
Y  =  8 • 337982E—  02  IS  A  MINIMUM 


PAGE  4  GMMTAB 

MAXIMA  ANC  MINIMA  IN  A 


PROBLEM  5-6 

THERMAL  CONDUCTIVITY  OF  STEAM  CORRELATION 
PRESSURE  200  BAR 


T  -  THETA 


MAXIMA  OF  5 


T  -  THETA 


MINIMA  OF  K 


5.066530E  01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


1.889246E  04 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


4  •  787250E  02 

0. 

0. 

0. 

0. 

0. 

0. 

C. 

0. 

0. 


8 . 337  9  82E-02 

0. 

C. 

0. 

C. 

0. 

0. 

0. 

0. 

0. 
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Problem  5 


7 


Perform  a  harmonic  analysis  on  the  following 
values  spaced  evenly  between  0°  and  360° •  149,  137,  128, 

126,  128,  135,  159,  178,  189,  191,  189,  187,  178,  170, 
177,  183,  181,  179,  179,  185,  182,  176,  166,  160- 

GMMTAB  PROBLEM  5-7 

TITLtl  PROBLEM  FROM  SCARBOROUGH  PAGE  512  4TH  EDITION 
TITLE2  OR  PAGE  572  5TH  EOITION 

NOSUMMARY 
SET  IN  COL  1 

149  137  128  126  128  135  159  178  189  191  189  187  178 

170  177  183  181  179  179  185  182  176  166  16C 

HEAD  COL  1/  Y-CATA 

HEAD  CCL  2/  X  CGEFF 

HARMCN  1  24  2 

FIXEC  6 

PRINT  1  2 

STOP 

*  *  *  RESULTS  *  *  * 

PAGE  1  OMNITAB  PROBLEM  5-7 

PROBLEM  FROM  SCARBOROUGH  PAGE  512  4TH  EDITION 
CR  PAGE  572  5TH  EDITION 


Y-DATA 

X  COEFF 

149. COOOCO 

167. 166666 

137 . 000000 

-19.983130 

1 2  8 . C  00000 

-3.409897 

126.000000 

5.470667 

128.000000 

-1.291681 

135.000000 

0.249746 

159. 0C0000 

0.749984 

178 • C00000 

0.309207 

189.000000 

0.458333 

191.000000 

-0.30402 2 

189.000000 

-0.090113 

187.000000 

-0.242531 

178.000000 

-0.083333 

170.000000 

-  12.779235 

177.000000 

-16.624566 

183.000000 

-0.323218 

181.000000 

1.515551 

179.000000 

1.461703 

179.000000 

-2.583315 

185.000000 

0.322179 

182.000000 

-0.216497 

176.000000 

0.676798 

166. 0C0000 

-0.458756 

160.000000 

-0.639697 

The  order  of  the  coefficients  is  a0 ,  at , . • .  an,  bt , 
b2  bri— 1 
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6.  THE  REPEAT  MODE 


In  the  ordinary  operating  mode  discussed  in  the 
foregoing  sections*  each  command  (a  card  containing  a 
valid  vocabulary  word  and  a  series  of  numbers)  is 
executed  as  it  is  read  and  then  dumped  on  an  output  tape 
to  be  printed  later  with  the  answers.  This  is  called  a 
single— pass  system. 

In  order  to  be  able  to  repeat  operations  more 
efficiently  it  is  necessary  to  have  the  instructions 
stored  in  the  machine  just  as  the  program  is.  Such  a 
scheme  can  be  achieved  in  a  number  of  ways  with  varying 
cost  in  storage  space*  execution  time*  or  tape 
operations.  The  method  adopted  in  OMNITAB  to  permit  a 
repeat  mode  has  been  designed*  we  believe*  to  minimize 
all  of  these. 

The  instructions  which  are  not  to  be  repeated  are 
handled  in  the  usual  way*  but  those  instructions 
following  the  word  BEGIN  and  ending  just  before  the  word 
FINISH  are  stored  in  the  core  and  are  available  for 
subsequent  use.  A  maximum  of  150  instructions  can  be  so 
stored.  These  are  automatically  numbered  by  the  program. 

The  stored  instructions  can  be  modified  in  a  number 
of  ways*  to  be  discussed  below*  and  used  over  and  over 
again  with  or  without  intervening  computations  in  the 
ordinary  mode.  The  stored  instructions  can  be  replaced 
by  another  set  of  instructions  preceded  by  the  word 
BEGIN  and  terminated  by  the  word  FINISH.  It  should  be 
emphasized  that  the  stored  instructions  are  not  executed 
at  all  unless  and  until  the  REPEAT  instruction  is  given. 
Thus  the  instruction 

REPEAT  1,  10,  5  TIMES 

carries  out  the  first  10  stored  instructions*  5  times. 
This  might  perhaps  be  followed  by  the  instruction 

REPEAT  INSTRUCTION  11,  15  1  TIME 

or  even 

REPEAT  5,  15  5  TIMES 

if  such  an  operation  were  meaningful.  It  will  be  obvious 
that  the  operations  are  performed  in  a  consecutive  order 
from  the  top  down.  If  it  were  desired  to  execute 
instructions  1*  3*  and  5  one  time  each  (there  being  good 
reason  to  separate  them  so) *  this  could  be  achieved 
somewhat  less  efficiently  by  the  following 
instructions^ 
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REPEAT 

INST 

1, 

1, 

1  TIME 

REPEAT 

3, 

3 , 

1 

REPEAT 

5, 

5, 

1 

The  arrangement  of  the  program  precludes  the  use  of 
FORMAT,  TITLE,  NOTE,  READ,  SET,  or  HEAD  instructions 
inside  the  stored  set*  Their  presence  will  either  be 
ignored  or  result  in  an  error  diagnostic*  Where  it  makes 
sense  to  do  so,  PRINT  and  PUNCH  instructions  may  be  used 
in  the  stored  set* 

Where  identical  operations  are  to  be  performed  on  a 
number  of  independent  sets  of  data,  each  set  is  preceded 
by  an  appropriate  READ  instruction,  and  then  followed  by 
an  appropriate  REPEAT  instruction.  This  assumes,  of 
course,  that  the  computation  instructions  had  previously 
been  entered  between  the  BEGIN  and  FINISH  instructions* 

A  repeat  mode  would  have  limited  utility  if  there 
were  not  also  a  facile  way  of  modifying  one  or  more  of 
the  instructions  after  each  pass*  This  feature  is 
provided  by  the  instruct ionsi 

INDEX  INSTRUCTIONS  , ,  , ,  , ,  , ,  BY  , , 

INCREMENT  INSTRUCTION  ,,  BY  $$,  $$,$$•... 

The  INDEX  instruction  changes  only  the  last  number 
on  each  of  the  designated  instructions  by  the  designated 
value*  The  INCREMENT  instruction  modifies  only  a  single 
instruction  but  has  provision  for  incrementing  any  or 
all  of  the  numbers  in  the  instruction.  The  INCREMENT 
instruction  must  contain  as  many  increment  numbers  as 
the  instruction  which  it  modifies*  Whether  they  carry  a 
decimal  point  or  not  depends  upon  whether  or  not  the 
numbers  which  they  modify  do  so*  They  may  be  incremented 
either  positively  or  negatively.  The  instruction  numbers 
are  assigned  automatically  by  the  program  starting  with 
number  0  for  the  BEGIN  and  then  sequentially  through  the 
set*  Neither  the  BEGIN  nor  FINISH  instruction  are 
considered  part  of  the  stored  set* 

Before  discussing  the  other  instructions  and  the 
solution  of  problems  via  the  repeat  mode,  we  summarize 
the  operating  characteristics  and  logic  of  the  repeat 
mode* 


a*  With  normal  input,  OMNITAB  executes  each 
command  as  it  is  read*  On  reading  the  word 
BEGIN,  the  program  goes  out  of  the  execute 
mode  and  stores  the  instructions  following 
BEGIN  up  to  the  word  FINISH* 


155 


b.  On  encountering  the  word  FINISH  the  program 
goes  back  into  the  execute  mode  and  is  ready 
to  handle  subsequent  instructions  in  the  usual 
way. 


c.  The  commands  following  the  FINISH 
instruction  are  executed  but  not  saved  until 
another  BEGIN  instruction  is  encountered  at 
which  time  the  new  set  replaces  the  old  one. 

d.  As  long  as  the  machine  is  in  the  execute 
mode  it  will  carry  out  an  INDEX  or  an 
INCREMENT  instruction  in  the  usual  fashion  so 
that  the  instructions  being  saved  in  core  can 
be  modified  for  subsequent  re-^entry.  Even  the 
INDEX  and  INCREMENT  instructions  can  be 
incremented. 

e.  Entry  and  re-entry  into  previously  stored 
instructions  is  achieved  by  the  instruction 
REPEAT.  This  word  halts  the  reading  of  new 
commands  until  the  REPEAT  instruction  is 
satisfied* 

f.  When  a  stored  set  of  instructions  is  no 
longer  required,  it  can  be  overwritten  by 
inserting  another  BEGIN  instruction  followed 
by  suitable  commands,  terminated  by  FINISH. 

g.  Arguments  may  be  generated  within  the 
stored  instructions.  The  READ  and  other  input 
instructions  cannot  be  accommodated  within  the 
repeat  mode.  They  can  easily  be  inserted 
either  prior  to  entering  the  repeat  mode  or 
between  repeats. 

h.  It  should  be  noted  that  the  INDEX  and 
INCREMENT  instructions  can  be  used  both  in  the 
stored  instructions  and  in  the  ordinary 
instructions. 

i.  Instructions  to  be  stored  cannot  contain 
more  than  10  numbers  each. 

j.  Neither  FORMAT  nor  HEAD  instructions  can  be 
used  inside  the  stored  instructions.  They  can 
however  be  used  in  the  normal  way. 

k.  Experienced  users  of  the  repeat  mode  find 
it  advantageous,  when  using  a  long  list  of 
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stored  instructions,  to  intersperse  a  number 
of  innocuous  instructions  to  facilitate  later 
changes  without  need  for  renumbering  the 
REPEAT  instructions*  The  cheapest  instruction 
for  this  purpose  is  SUMMARIZE  or  NOSUMMARY* 


6*1*  Repeat  Mode  Commands 


1*  BEGIN  STORING  INSTRUCTIONS 

a*  puts  the  program  into  the  nonexecute  mode  under 
which  it  reads  and  stores  the  subsequent  instructions 
but  does  not  carry  them  out* 

b*  under  this  mode  the  program  stores  up  to  150 
commands  and  numbers  them  so  that  they  may  be 
referenced  in  subsequent  REPEAT  instructions* 
c*  once  the  word  BEGIN  is  encountered,  the 

instructions  which  follow  it  are  stored  until  the 
word  FINISH  is  encountered. 

2*  INDEX  INSTRUCTIONS  ,,,,,,,,  ....  BY  , , 

a-  provides  for  incrementing  the  storage  location 
(the  last  number  on  the  card)  of  the  designated 
instructions  by  a  constant  value. 

3*  INCREMENT  INSTRUCTION  ,,  BY  $$,$$,$$,  ... 

a*  provides  for  incrementing  the  arguments  of  the 
designated  instruction  as  indicated* 

b*  these  must  be  a  one  to  one  correspondence  between 
the  numbers  on  the  original  instruction  and  on  the 
INCREMENT  instruction. 

c*  where  the  number  on  the  original  instruction 
carried  a  decimal,  the  corresponding  number  on  the 
INCREMENT  instruction  must  also  carry  a  decimal 
point  * 

d*  a  zero  must  be  used  where  an  argument  is  not  to  be 
incremented. 

4*  COMPARE  COL  ++  AND  ++  TO  A  TOLERANCE  OF  $$ 

a*  this  instruction  is  used  only  in  the  repeat  mode 
and  must  be  one  of  the  stored  instructions* 
b.  when  the  comparison  is  satisfied  for  each  value  in 
the  two  columns,  the  program  exits  from  the  repeat 
mode  and  prints  out  how  many  cycles  of  the  REPEAT 
instruction  have  been  executed* 

c*  the  tolerance  is  defined  as  |( Cj -C2 ) /c2 J  where  the 
C's  are  the  values  in  the  designated  columns* 
d.  if  the  comparison  is  not  satisfied  after  carrying 
out  the  designated  REPEAT  cycle,  a  diagnostic 
statement  to  that  effect  is  printed  and  the 
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designated  columns  as  well  as  the  tolerance  are 
printed  out  for  diagnostic  use. 

5-  ISOLATE  X  IN  ++,  FOR  Y  IN  COL  ++  =  **  STORE  IN  ++ 

or 

ISOLATE  X  IN  ++  FOR  COL  ++  =  **,  USE  ,  ,  POINTS 

STORE  IN  ++ 

a-  locates  the  values  of  X  between  which  the  desired 
value  (**)  lies?  and  inserts  between  them  either  3 
points  or  the  designated  number  of  points  uniformly 
distributed,  and  stores  all  these  values  in  the  last 
designated  column. 

b.  used  in  the  application  of  the  principle  of  false 
position  to  locating  the  zeros  of  functions  given 
explicitly  in  terms  of  one  independent  variable  which 
must  be  monotonic  in  the  first  named  column. 

c.  also  stores  the  average  of  the  bracketing  values 
in  column  45,  (see  table  B) . 

d.  three  points  are  inserted  wnen  no  points  are 
specif ied. 

e.  at  the  end  of  this  operation  the  program  increases 
or  decreases  NRMAX  to  coincide  with  the  exact  length 
of  the  results  generated  in  the  storage  column 
indicated  in  the  instruction. 

f.  when  more  points  are  inserted  than  can  be 
accommodated  by  the  length  of  the  work  sheet,  the 
excess  values  are  stored  in  column  46.  If  overflow  is 
expected,  the  extra  points  should  be  moved  to  a  blank 
column  and  operated  on  as  was  the  original  column  of 
X '  s* 

g.  if  the  value  ( **)  is  outside  of  the  range  of  the 
dependent  variable  in  the  second  named  column,  an 
appropriate  diagnostic  statement  is  printed. 

h.  if  the  desired  value  is  located  exactly,  the 
corresponding  X  value  is  transferred  to  the  storage 
column  and  to  column  45. 

6.  I SETUP  X  IN  ++,  Y  IN  ++,  DESIRED  Y  IN  ++,  STORE  IN  ++ 
a*  locates  the  values  of  X  between  which  the  desired 
values  of  Y  lie,  and  inserts  between  them  three 
points,  and  stores  all  five  values  of  X  in  the 
designated  column. 

b*  stores  the  average  of  the  bracketing  X  s  in  column 
45,  the  average  of  the  Y  values  corresponding  to  the 
bracketing  X* s  in  column  44,  and  each  of  the 
successfully  bracketing  Y's  in  column  46* (See  the 
solution  to  Problem  6*~4* ) 

c.  stores  the  necessary  information  for  the  first  20 
points  located  from  the  desired  list  and  gives  a 
notice  if  additional  values  were  located. 

d.  computation  is  stopped  if  no  points  are  found  and 
if  the  columns  specified  do  not  contain  enough  values 
to  allow  iteration. 
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e-  if  the  desired  Y  occurs  more  than  once,  only  the 
first  occurrence  will  be  bracketed. 

f.  this  instruction  operates  like  the  ISOLATE 
instruction,  except  that  it  isolates  the  arguments 
which  bracket  each  of  a  list  of  different  values. 

g.  if  the  desired  value  is  located  exactly,  the 
corresponding  X  value  is  transferred  to  the  storage 
column  and  columns  44,  45,  and  46  are  treated  as 
usual* 

h.  this  instruction  generates  blocks  of  numbers  for 
each  of  the  desired  functional  values  so  that  the 
ITERATE  instruction  may  operate  to  find  desired 
inverse  values. 

7.  ITERATE  X  IN  ++,  Y  IN  ++,  DESIRED  Y  IN  ++, STORE  IN  ++ 
a*  assumes  that  ISETUP  has  generated  blocks  of  X's 
for  which  the  values  of  the  function  were 
subsequently  computed  and  stored  in  the  first  two 
columns  indicated. 

b*  isolates  within  each  block  of  5  X’s  the  values 
which  bracket  one  or  more  of  the  desired  Y  values* 

c.  can  be  used  with  the  COMPARE  instruction  in  the 
repeat  mode  to  compute  inverse  functions  to  a  given 
tolerance. 

d.  items  6  b  through  6  g  apply  here  as  well. 

8-  FINISH  STORING  INSTRUCTIONS 

a.  terminates  the  storing  of  instructions  and  changes 
the  program  to  the  execute  mode  for  the  instructions 
which  follow* 

b.  at  this  point  the  instructions  which  preceded  the 
word  FINISH  have  not  been  executed,  and  will  not  be 
until  called  for  by  the  REPEAT  instruction. 

c«  any  illegal  instruction  preceding  the  word  FINISH 
causes  the  program  to  regard  FINISH  as  an  illegal 
instruction,  and  when  the  original  mistake  is 
corrected,  this  will  correct  itself  also. 

9.  REPEAT  INSTRUCTIONS  ,,  THRU  ,,  ,,  TIMES 

a.  provides  for  the  execution  of  one  or  more  of  the 
previously  stored  instructions. 

b.  this  instruction  cannot  be  stored;  it  must  be  used 
outside  of  the  stored  set. 

c.  the  stored  instructions  may  be  entered  at  any 
place  and  called  for  either  one  at  a  time  or  in 
consecutive  increasing  order. 

d.  stored  instructions  may  be  used  any  number  of 
times  or  even  ignored. 
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6.  2*  The  Generation  of  Ad  Hoc  Subroutines 
Written  in  the  OMNITAB  Language 


The  point  has  been  made  earlier  that  OMNITAB  is  a 
general  ~  purpose  program.  That  is  not  to  say  it  is  an 
all—  purpose  program*  However  it  is  considerably  more 
general  than  it  appears  to  be  because  it  can  easily  be 
extended  by  the  novice  to  encompass  operations  not 
presently  incorporated-  Undoubtedly  each  reader  will 
find  different  deficiencies  and  will  probably  wish  that 
his  own  often  used  operations  had  been  anticipated.  Some 
omissions  may  indeed  limit  the  application  of  the 
program  in  certain  areas.  We  hold  no  brief  for  the  use 
of  this  program  in  areas  for  which  it  is  not  suited,  but 
resist  the  temptation  to  define  more  explicitely  the 
"proper"  areas  of  application  —  leaving  it  to  the  reader 
to  bridge  the  gap  between  the  computation  problems 
illustrated  and  his  own.  This  point  of  view  has  been 
forged  by  numerous  instances  where  colleagues  have 
successfully  applied  the  program  to  problems  more 
involved  and  complex  than  we  were  prepared  to  accept  on 
cursory  examination. 


Having  thus  disposed  of  the  "large"  problems  we 
return  now  to  a  brief  discussion  of  a  number  of  simple 
operations  which  have  not  been  programmed  explicitly  but 
which  can  nevertheless  be  performed  with  considerable 
dispatch. 

This  section  has  been  deferred  until  now  in  order  to 
illustrate  an  important  feature  of  the  OMNITAB 
arrangement  which  permits  one  to  write  special  ad  hoc 
operations  and  to  handle  them  as  little  subroutines  in 
the  repeat  mode. 

The  harmonic  mean  of  a  column  of  numbers  stored  in 
column  1  can  be  achieved  via  the  instructions^ 

DIVIDE  1.  BY  COL  1,  STORE  IN  1 
AVERAGE  COL  1,  STORE  IN  COL  2 
DIVIDE  1.  BY  COL  2,  STORE  IN  2 

The  geometric  mean  can  be  achieved  almost  as  easily 
via  logarithms  as  follows : 

LOGTEN  1 ,  1 
AVERAGE  1 ,  1 
ANT I LOG  1,  1 
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The  generation  of  the  geometric  mean  without  resorting 
to  logarithms  requires  a  few  more  instructions*  We  leave 
it  to  the  reader  to  perform  this  exercise* 

Consider  the  problem  of  drooping  off  the  decimal 
part  of  a  number  and  retaining  only  the  integer  part* 
Although  such  a  command  is  useful,  there  is  no 

instruction  in  OMNITAB  at  present  to  do  this*  Let  us  see 
if  this  can  be  achieved  via  the  existing  instructions. 

The  instruction  RAISE  performs  the  operation  A13.  If 
b  is  an  integer  the  operation  proceeds  via  b 
multiplications,  with  due  regard  for  the  sign  when  A  is 
negative.  If  tj.  is  not  an  integer  and  A  is  positive,  the 
program  multiplies  the  logarithm  of  A  by  b  and  takes  the 
antilog  of  the  product.  If  A  is  negative,  however,  the 

program  drops  off  the  decimal  portion  of  the  power  and 

raises  the  base  to  an  integral  power  by  multiplication. 
This  mode  of  operation  can  now  be  used  to  recover  the 
integral  part  as  follows* 

Let  us  assume  that  the  numbers  whose  integral 

portions  are  required  are  contained  in  column  1*  The 
following  instructions 

ADD  -10*,  0*,  STORE  IN  2 

RAISE  COL  2  TO  COL  1,  STORE  IN  COL  3 
ABSOLUTE  VALUE  OF  3,  STORE  IN  3 
ANTILOG  3  STORE  IN  3 

will  provide  in  column  3  only  the  integral  part  of  the 
number.  From  this  point  the  calculations  can  continue  as 
necessary.  If  the  above  operations  were  required  many 
times  during  a  calculation,  the  above  4  instructions 
could  be  stored  in  the  core  and  used  under  the  repeat 
mode. 


Let  us  now  assume  that  each  of  the  above  three 
operations  will  be  required  many  times  in  a  particular 
calculation  as  for  example  on  2  or  more  sets  of  data.  In 
particular  let  us  assume  that  the  truncation  of  a  set  or 
sets  of  data  are  desired  before  taking  the  harmonic  and 
geometric  mean.  We  will  however  leave  the  instructions 
in  the  order  in  which  they  are  illustrated.  The  OMNITAB 
calculations,  to  accomplish  this  in  the  repeat  mode, 
might  be  as  follows: 
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OMNITAB  10/20/64 

BEGIN  STORING  INSTRUCTIONS 

DIV  1. ,  1,  11 

AVERAGE  11,  2 

DIV  1. ,  2,  2 

LOGE  1,  12 

AVERAGE  12,  12 

EXP  12,  12 

PRINT  10,  1,  12,  13 

ADD  -10.  ,  0.  ,  13 

RAISE  13,  10,  13 

ABSOLUTE  13,  13 

LOGTEN  13,  1 

FINISH  STORING  INSTRUCTIONS 
SET  IN  COL  10  DATA  TO  FOLLOW 


(data  follows) 

REPEAT  INST  8  THRU  11,  1  TIME 

REPEAT  INST  1  THRU  7,  1  TIME 

SET  10 


(data  follows) 

REPEAT  8,  11,  1 
REPEAT  1,  7,  1 
etc. 


6*  3*  Problems  Solved  in  the  Repeat  Mode 

We  now  consider  the  solution  of  a  number  of 
problems  in  the  Repeat  mode* 

Problem  6  -  1 


Re-do  Problem  3—5  using  the  Repeat  mode* 


The  OMNITAB  instructions  are  as  follows^ 

CMNITAB  PRC  E  LEM  6-1 

TITLE1  RECIPROCAL  TABLE,  1000. /T  -  T  =  100.0  TO  200.0  8Y  0.1 
GENERATE  100.(1.)200.  ,1 
ACC  1  0.  20 
BEGIN 

CIVILE  1000.  BY  20  ,2 
ACC  .1  20  20 
INCEX  1  BY  1 
FINISH 

REPEAT  1  TO  3  ,  10  TIMES 
FORMAT { 1H  F9.0, 10F10.5) 

F  PR  I  NT  1,2, 3, 4,  5,6 
F  PR  I  NT  1,7,8,9,10,11 
STCP 

*  *  *  RESULTS  *  *  * 
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IPRCCAL  TABLE, 

1000. /T  - 

T  =  1C0.0 

TO  200.0 

BY  0.1 

100. 

10.00000 

9.99001 

9.98004 

9.97009 

9.96016 

101. 

9.90099 

9.89120 

9.88142 

9.87167 

9.86193 

102. 

9.80392 

9.79432 

9.78474 

9.77517 

9.76563 

103. 

9.70874 

9.69932 

9.68992 

9.68054 

9.67118 

104. 

9.61538 

9.60615 

9.59693 

9.58773 

9.57854 

105. 

9.52381 

9.51475 

9.50570 

9.49668 

9.48767 

106. 

9.43396 

9.42507 

9.41620 

9.40734 

9.39850 

107. 

9.34579 

9.33707 

9.32836 

9.31966 

9. 31099 

108. 

9.25926 

9.25069 

9.24214 

9.23361 

9.22509 

109. 

9.17431 

9.16590 

9.15751 

9.14913 

9. 14077 

110. 

9.09091 

9.08265 

9.07441 

9.06618 

9.05797 

111. 

9.00901 

9.00090 

8.99281 

8.98473 

8.97666 

112. 

8.92857 

8.92061 

8.91266 

8.90472 

8.89680 
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Problem  6 


2 


Compute  the  table  of  Problem  3—6  in  the  Repeat 
mode  with  the  addition  of  a  PLOT  and  a  SPLOT. 


The  OMNITAB  instructions  are  as  follows^ 


CMNITAB 

PROBLEM 

6-2 

TITLE1 

TABLE 

OF  V 

ERT  ICAL 

HEIGHTS 

NCSUMMAR 

Y 

FIXEC  6 

GENERATE 

0.  .Cl 

.5  1 

BEGIN 

TAND  10. 

1  2 

INCREMENT  1  BY  10 

.  0 

1 

FINISH 

REPEAT  1 

2  8 

HEAD  1/ 

M 

HEAD  2/ 

THETA  = 

10 

HEAD  3/ 

THETA  = 

20 

HEAD  4/ 

THETA  = 

30 

HEAD  5/ 

THETA  = 

40 

HEAD  6/ 

THETA  = 

50 

HEAD  7/ 

THETA  = 

60 

HEAD  8/ 

THETA  = 

70 

HEAD  9/ 

THETA  = 

80 

PRINT  1 

2  3  4  5 

PRINT  1 

6  7  8  9 

PLCT  2 

468  AGA 

k  INST 

1 

0.  1.  0.  1.0 

SPLCT  2 

3  4  5  6  7 

’  8  9 

AGAINST 

1,X  FROM  0. 

S 

TCP 
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CMMTAB 


PROBLEM  6-2 

TABLE  OF  VERTICAL  HEIGHTS 

ABSCISSA  -  CCLUMN  1 

ORDINATES  -  COLUMN  8  (.),  COLUMN  6  (*),  COLUMN  4  ( + ) ,  COLUMN  2  (,), 
♦ - + - + - + - + - + - 

0 .  1 OOOO E  01  + 


0.8CC00E  00+ 


0.60000E  00+ 


* 

*> 


** 


0 • 4  0000  E-00  + 


* 

** 

*  * 


*  * 


0 • 2  0000  E-00  + 


+  +  + 


-  .  *  *  +  +  +  + 
-  .  **  +++ 

*  +  +  +  + 


f  t  t  >  t  t  i  l  l  t  t 


f***»f*»** 


«*  44  + 


—  »#♦+  +  (  HMIIIII  ft 

-0.37253E-08S.+,  • ,  , 

+ - + - + - 

0.  0 • 20000E-00 


- + - +  . 

0.40C00E-00 


Figure  6-1.  A  plot  for  Problem  6-2  using  the  PLOT 
instruction.  See  Figure  6—2  for  a  more  precise  plot  of 
the  same  data. 
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TABLE  OF  VERTICAL  HEIGHTS 

+ - 4- - + - 4- - 4- - 4- - 4- - 4- - 4- - 4- - 4- - 4- - + 


MINIMUM  X  =  0.  MAXIMUM  X 

MINIMUM  Y  =  0.  MAXIMUM  Y 


- + - + - + - + - + 

0 • 6000000E  00 
0 • 1 000000E  01 


Figure  6—2*  A  portion  of  a  plot  for  Problem  6~2  using 
the  SPLOT  instruction. 
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Problem  6  —  3 


Compute  Ji(x)  for  values  of  x  corresponding  to  the 
zeros  of  J0(x).  First  find  the  zeros  between  0<x<60 
using  the  instruction  ISOLATE.  Illustrate  the 
convergence  of  J0(x)  toward  zero  by  storing  results  for 
each  cycle  and  printing  them  side  by  side. 

The  OMNITAB  instructions  are  as  follows^ 


OMNITAB  PROBLEM  6-3 

NOSUMMARY 

TITLE1  ZEROS  OF  BESSEL  J  ZERO 

GENERATE  .61.6)  60.  IN  COL  1 

BE J ZERO  OF  1  STORE  2 

ISOLATE  1  2  0.  3 

BEJZERC  3  4 

ISOLATE  3  4  0.  5 

BEJZERC  5  6 

ISOLATE  5  6  0.  7 

BEJZERC  7  8 

ISOLATE  7  8  0.  9 

BEJZERC  9  10 

ISOLATE  9  10  0.  11 

BEJZERC  11  12 

ISOLATE  11  12  C.  13 

BEJZERC  45  24 

BEJ0NE  45  25 

FIXED  6 

HEAD  COL  45/  X 

HEAD  24/  JZERC(X) 

HEAD  COL  25/  JCNE(X) 

PRINT  45  24  25 

PRINT  123456 
PRINT  7  8  9  10  11  12 
STOP 


In  the  Repeat  mode  these  instructions  could  be 
replaced  by*. 


BEGIN 

BEJZERO  OF  1,  STORE  IN  2 
ISOLATE  1, 2, 0. , 3 
INCREMENT  1  BY  2,  2 
INCREMENT  2  BY  2,  2,  0-  ,  2 
FINISH 

REPEAT  INST  1  TO  4,  6  TIMES 
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Results  after  Six  Iterations  for  the  Zeros  of  J0(x) 


PAGE  1  GMMTAB  PROBLEM  6-3 


ZEROS  OF  BESSEL 

J  ZERO 

X 

JZERO(X) 

J0NECX) 

2.404980 

-0.000080 

0.519114 

5.519824 

-0.000087 

-0.340280 

8.654003 

-0.000075 

€.271444 

11.791698 

0 .000038 

-0.232457 

14.931152 

-0.000048 

0.206543 

18.071190 

0.000024 

-C.  187727 

21.211815 

-0.000031 

0.173264 

24.352440 

-0.000005 

-0.161702 

27.493651 

-0.00GC26 

0.152180 

30.634862 

0.000037 

-0.  144165 

33.776072 

-0.000035 

0.137296 

36.917283 

0.000024 

-C. 131324 

40.058493 

-0.000008 

0.126069 

43. 199706 

-0.000010 

-0.121399 

46.340916 

0.000032 

0.117212 

49.482712 

0.000012 

-0.113429 

52.623923 

0.000014 

0.109991 

55.765720 

0.000022 

-0.106847 

58.906930 

0.000006 

0. 103960 

0. 

1.000000 

0. 

0. 

1.000000 

0. 

0. 

1.000000 

0. 

0. 

1.000000 

0. 

0. 

1.000000 

C. 

0. 

1.000000 

0. 

0. 

1.000000 

c. 

0. 

1.000000 

c. 

0. 

1.000000 

c. 

0. 

1.000000 

0. 

0. 

1.000000 

0. 

Results  of  successive  applications  of  the 

instruction  to  obtain  zeros  of  J0(X)  are  shown 
next  page. 


ISOLATE 
on  the 
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PAGE  3  CMNITAB  PROBLEM  6-3 

ZEROS  OF  BESSEL  J  ZERO 


COLUMN  1 

COLUMN  2 

COLUMN  3 

COLUMN  4 

COLUMN  5 

COLUMN  6 

0.600000 

0.912005 

2.400000 

C. 002508 

2.400000 

0.002508 

1.200000 

0.671133 

2.550000*" 

-0.072923 

2.437500  < 

-0.016846 

1.800000 

0.339986 

2.700000 

-0.142449 

2.475000 

-0.035880 

2.400000 

0.002508 

2.850000 

-0.205102 

2.512500 

-0.054578 

3.000000 

-0.260052 

3.000000 

-0.260052 

2.550000 

-0.072923 

3.600000 

-0.391769 

5.400000 

-0.041210 

5.400000 

-0.041210 

4.200000 

-0.376557 

5.550000*" 

0.010152 

5.437500 

-0.028279 

4.800000 

-0.240425 

5.700000 

0.059920 

5.475000 

-0.015396 

5.400000 

-0.041210 

5.850000 

0.  107066 

5.512500 

-0.002580 

6.000000 

0.150645 

6.000000 

0.150645 

5.550000S 

0.010152 

6.600000 

0.274043 

8.400000 

0.069157 

8.550000 

0.028277 

7.200000 

0.295071 

8.550000 

0.028277 

8.587500 

0.018034 

7.800000 

0.215408 

8 . 700000 

-0.012523 

8.625000  . 

0.007810 

8.400000  „ 

0.069157 

8.850000 

-0.052346 

8.662500  ' 

-0.002380 

9.  000000*" 

-0.090334 

9.000000 

-0.090334 

8.700000 

-0.012523 

9.600000 

-0.208979 

11.400000 

-0.090215 

11.700000 

-0.021331 

10.200000 

-0.249617 

11.550000 

-0.056180 

11.737500 

-0.012584 
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ZEROS  OF  BESSEL 

J  ZERO 

COLUMN  7 

COLUMN  8 

COLUMN  9 

COLUMN  10 

COLUMN  11 

COLUMN  12 

2.400000 

0.002508 

2.400000 

0.002508 

2.404687  f 

0.000072 

2.409375*“ 

-0.002360 

2.402344 

0.001289 

2.405273s 

-0.000232 

2.418750 

-0.007208 

2.404687 

0.000072 

2.405859 

-0.000537 

2.428125 

-0.012036 

2.407031*^ 

-0.001145 

2.406445 

-0.000841 

2.437500 

-0.016846 

2.409375 

-0.002360 

2.407031 

-0.001145 

5.512500 

-0.002580 

5.512500 

-0.002580 

5.519531 

-0.000186 

5.521875*' 

0.000611 

5.514844 

-0.001782 

5.520117s 

0.000013 

5.531250 

0.003797 

5.517187 

-0.000984 

5.520703 

0.000213 

5.540625 

0.006978 

5.519531 

-0.000186 

5.521289 

0.000412 

5.550000 

0.010152 

5.521875  S 

C. 000611 

5.521875 

0.000611 

8.625000 

0.007810 

8.653125  , 

0.000164 

8.653125 

0.000164 

8.634375 

0.005259 

8.655468s 

-0.000472 

8.65371 0  , 

0.000005 

8.643750 

0.002710 

8.657812 

-0.001108 

8.654296s 

-0.000154 

8.653125 

0.000164 

8.660156 

-0.001744 

8.654882 

-0.000313 

8.662500< 

-0.002380 

8.662500 

-0.002380 

8.655468 

-0.000472 

11.774999 

-0.003846 

11.784374 

-0.001665 

11.791405  , _ 

-0.000030 

11.784374 

-0.001665 

11.786718 

-0.001120 

11. 791991s 

0.000106 

11.793749  C 

0.000515 

1  1.789062 

-0.000575 

11. 792577 

0.000242 

11.803124 

0.002693 

11.791405 

-0.000030 

11.793163 

0.000379 

11.812499 

0.004869 

11.793749  C 

0.000515 

11.793749 

0.000515 

14.925000 

0.001223 

14.925000 

0.001223 

14.929687 

0.000254 

14.934375* 

-0.000714 

14.927343 

0.000738 

14.930273 

0.000133 

14.943750 

-0.002649 

14.929687 

C. 000254 

14.930859 

0.000012 

14.953125 

-0.004583 

14.932031  ' 

-0.000230 

14.931445s 

-0.000109 

14.962500 

-0.006515 

14.934375 

-0.000714 

14.932031 

-0.000230 

18.037499 

-0.006306 

18.065624 

— 0.001021 

18.070311 

-0.000141 

18.046874 

-0.004544 

18.067968 

-0.000581 

18.070897  , 

-0.000031 

18.056249 

-0.002782 

18.070311 

-0.000141 

18.071483s 

0.000079 

18.065624 

-0.001021 

18.07265  5* 

0.000299 

18.072069 

0.000189 

18.074999  s 

0.000739 

1  8 .074999 

0.000739 

18.072655 

0.000299 

21.187499 

0.004184 

21.206249 

0.000934 

21.210936 

0.000121 

21.196874 

0.002559 

2 1.208593 

0.000528 

21.211522  , 

0.000020 

21.206249 

0 .000934 

21.210936 

0.000121 

21.212108  * 

-0.000082 

21.215624  s 

-0.000691 

21. 213280*- 

-0.000285 

21.2 12694 

-0.000183 

21.224999 

-0.002314 

21.215624 

-0.000691 

21.213280 

-0.000285 

24.337499 

-0.002422 

24.346874 

-0.000905 

24.351561 

-0.000147 

24.346874  , 

-0.000905 

24.349218 

-0.000526 

24.352147  f 

-0.000053 

24.356249  S 

0.000611 

24.351561 

-0.000147 

24.352733s 

0.000042 

24.365624 

0.002126 

24. 353905* 

0.000232 

24.353319 

0.000137 

24.374999 

0.003641 

24 . 356249 

0.000611 

24.353905 

0.000232 
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22.3457 

1299.7479 

0. 

0. 

0 

22.3458 

1299.8774 

0. 

0. 

0 

22.3459 

1300.0065 

0. 

0. 

0 

22.3460 

1300.1358 

0. 

0. 

0 

22.3461 

1300.2650 

0. 

0. 

0 

22.6402 

1399.5785 

0. 

0. 

0 

22.64C3 

1399.7146 

0. 

0. 

0 

22.6404 

1399.8510 

0. 

0. 

0 

22.6405 

1399.9871 

0. 

0. 

0 

22.6406 

1400.1235 

0. 

0. 

0 

22.9195 

1499.5981 

0. 

0. 

0 

22.9196 

1499.7414 

0. 

0. 

0 

22.9197 

1499.8844 

0. 

0. 

0 

22.9198 

1500.0276 

0. 

0. 

0 

22.9199 

1500. 1707 

0. 

0. 

0 

21.5000 

1040.8707 

0. 

0. 

0 

21.6000 

1069.3777 

0. 

0. 

0 

21.7000 

1098.4398 

0. 

0. 

0 

21.8000 

1128.0631 

0. 

0. 

0 

21.9000 

1158.2537 

0. 

0. 

0 

22.0000 

1189.0179 

0. 

0. 

0 

22.1000 

1220.3622 

0. 

0. 

0 

22.2000 

1252.2923 

0. 

0. 

0 

22.3000 

1284.8148 

0. 

0. 

0 

22.4000 

1317.9357 

0. 

0. 

c 

22.5000 

1351.6614 

0. 

0. 

0 

22.6000 

1385.9985 

0. 

0. 

0 

22.70G0 

1420.9526 

0. 

0. 

0 

22.8000 

1456.5306 

0. 

0. 

c 

22.9000 

1492.7386 

0. 

0. 

0 

23.0000 

1529.5830 

0. 

0. 

0 

PAGE  4  CMMTAB  PROBLEM  6-4 

VAPCR  PRESSURE  OF  LIQUID  NORMAL  HYDROGEN 

COLUMN  44  COLUMN  45  COLUMN  46 


99.9996 

15.1014 

100.0000 

199.9896 

16.6080 

200.0000 

300.0213 

17.6193 

300.0000 

400.0089 

18.4041 

400.0000 

500.0059 

19.0557 

500.0000 

600.0292 

19.6182 

600.0000 

699.9803 

20.1158 

700.0000 

799.9827 

20.5646 

800.0000 

900.0219 

20.9748 

900.0000 

1000.0479 

21.3533 

1000.0000 

1099.9876 

21.7053 

1100.0000 

1200.0318 

22.0354 

1200.0000 

1299.94  19 

22.3459 

1300.0000 

1400.0553 

22.6404 

1400.0000 

1499.9560 

22.9197 

1500.0000 
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Problem  6  —  5 


Locate  the  maxima  and  minima  of  the  function  in 
Problem  3~10  making  sure  to  tabulate  the  function  at 
values  which  do  not  coincide  with  the  integers* 


The  OMNITAB  instructions  are  as  follows* 


BY  I  ADO  TO  COL  9 


TO  COL  3 
4 

COL  4 f  ADD  TO  COL  5 
9  ADD  TO  COL  6 
-100. ,100. 


CMNITAB  PRC6ELM  6-5  TEST  OF  MAXMIN  AND  ISOLATE 

TITLfcl  TEST  OF  MAXMIN 

NOSUMMARY 

GENERATE  -0.351.2)6.35  IN  COL  1 
BEGIN  STORING  INSTRUCTIONS 
SUBTRACT  1.  FRCM  CCL  1  *  MULT 
SUB  2.  FRCM  CCL  1, STORE  2 
SUB  3.  FROM  I  MULT  BY  2,  ADD 

SUB  4.  ,1,2 

SUB  5.  FRCM  2  MULT  2  ADC  TO  COL 
SUBTRACT  6.  FROM  COL  1,  MULT  BY 
MULT  CCL  5  BY  COL  3  MULT  BY  COL 
PLCT  CCL  6  AGAINST  COL  1,-1. ,6., 

ISOLATE  X  IN  CCL  1,Y  IN  COL  6, ABOUT  0., STORE  X  IN  COL  1 
ERASE  CCL  2  3  A  5  6  9 
ACC  COL  45  TO  COL  19  STORE  IN  COL  21 
INCREMENT  INST  11  BY  0  0  1 

FINISH  STORING  INSTRUCTIONS 
REPEAT  INSTRUCTION  1  THRU  8,  1  TIME 

MAXMIN  X  IN  1,  Y  IN  6,  STORE  IN  11  12  13  14 
FIXEC  6 

PRINT  1  6  11  12  13  14 
REPEAT  INST  1  THRU  12  5  TIMES 

TITLfcl  TEST  OF  THE  ISOLATE  INSTRUCTION 

PRINT  CCLS  21  22  23  24  25 
GENERATE  0. ( . 1 )6.  IN  COL  1 


TEST  OF 
1  TIME 


TITLE1 

REPEAT  INST  1  THRU  8 
ERASE  11  12  13  14 
MAXMIN  X  IN  1  Y  IN  6  , STORE 
PRINT  1  6  11  12  13  14 
STOP 


MAXMIN  ON  A  FINER  GRID 


IN  11  12  13  14 


173 


PAGE  10  CMMTAB  PROBELM  6-5  TEST  OF  MAXMIN  AND  ISOLATE 

TEST  OF  MAXMIN  ON  A  FINER  GRID 

ABSCISSA  -  CCLUMN  1 
ORDINATES  -  COLUMN  6  (.), 


o 


z  o 
ZL  Z 
O  < 


Z>  Z)  Z 3DDDD 
ZZXiZZZ 

X  Z  X  z  X  z  X 
<»-*<•—<  < 
s:  z  z  z  z  z  z 

<<<<<<< 

io  i/)  i/)  </) 


JJ  JJ  UJ  LU  UJ  LU  ULi 

o  >h  co  in  o  (\  m 

CO  O  >0  N  N  H  lT\ 
O'  O'  'f  >C  O  IT\  h 

r\jr-<j'r\jaom>T 
OOO^O'inO'Oh- 
r-  co  ^  r-  m  >o  co 


z 
z  z 

-J  Z) 


>  >  >  > 


lli  111  UJ  LU  -dJ  LU  LU 

o  o  >o  o  >r  m  Is- 

^  in  >o  m  >o  m  o 

'T  ao  o  O'  o  O' 
>r^ino'0(\jr*» 
>T  c\j  CT'  m  m  co  >o 

m  >r  co  ^  in  m 

m  »-h  rsj  rsj  fn  m  m 


X  X  X  X  X  X  X 


Figure  6—3*  A  plot  of  the  function  generated  in  Problem 
6_5  with  the  automatic  printout  from  MAXMIN  superimposed 
upon  it* 
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OMMTAB  10/6/64 

NOSUMMARY 

TITLE1  JAHNKE  AND  EMCE 
READ  123456 


TABLES  OF  FUNCTIONS  WITH  FORMULAE  AND  CURVES 


0.5 

0.9659 

0.9330 

0.9013 

0.8706 

0.8409 

0.6 

0.9748 

0.9502 

0.9262 

0.9029 

0.8801 

0.7 

0.9823 

0.9650 

0.9497 

0.9312 

0.9147 

0.8 

0.9889 

0.9779 

0.9673 

0.9551 

0.9457 

0.9 

0.9948 

0.9895 

0.9843 

0.9792 

0.9740 

1.0 

1.0000 

l.OCOO 

l.OCOO 

1.0000 

1.0000 

1.2 

1.0092 

1.0184 

1.0277 

1.0371 

1.0466 

1.4 

1.0170 

1.0342 

1.0518 

1.0696 

1.0878 

1.6 

1.0238 

1.0481 

1.0730 

1.0986 

1.1247 

1.8 

1.0298 

1.0605 

1.0922 

1.1247 

1.1583 

2.0 

1.0353 

1.0718 

1.1096 

1.1487 

1. 1892 

2.2 

1.0402 

1.0820 

1.1255 

1.1708 

1.2179 

2.4 

1.0447 

1.0915 

1.1403 

1.1914 

1.2447 

2.6 

1.0489 

1. 1003 

1.1541 

1.2106 

1.2698 

2.8 

1.0528 

1. 1084 

1.1670 

1.2287 

1.2936 

3.0 

1.0565 

1.1161 

1.1791 

1.2457 

1.3161 

3.5 

1.0646 

1.1335 

1.2067 

1.2847 

1.3678 

4.0 

1.0718 

1.1487 

1.2311 

1.3195 

1.4142 

4.5 

1.0781 

1.1623 

1.2531 

1.3510 

1.4565 

5.0 

1.0838 

1.1746 

1.2731 

1.3797 

1.4953 

10. 

1.1220 

1.2589 

1.4125 

1.5849 

1.7783 

BEGIN 

CIVDIF  CF 

:  COL  2 

X  IN  CGL  1 

GIVEN  ON  PAGES  8  AND  9  OF  ADDENDA 


INCREMENT  INST  1  BY  1,0 

RAISE  CCL  1  TG  .05  POWER  STORE  IN  COL  7 
INCREMENT  INST  3  BY  0,.05,1 
SUBTRACT  CGL  2  FRCM  COL  7  STORE  IN  COL  21 
INCREMENT  INST  5  BY  1, 1,  1 
FINISH 

REPEAT  INST  1  TG  2  ,  5  TIMES 
REPEAT  INST  3  TG  4  ,  20  TIMES 
T I TLE2CMN IT AB  CALCULATIONS  FOR  POWERS 
FORMAT  ( IF  1 1 • 1 , 10F9 . 5 ) 

F PR  I  NT  1,7, 8, 9, 10, 11, 12, 13, 14, 15, 16 

F PR  I  NT  1,  17,  18, 19,20,21,22, 2  3,  24,2  5,26 

TITLE2  I.  TABLES  CF  POWERS  PAGE  8  OF  ADDENDA 

FIXED  4  CECIMALS 

HEAD  CCL  1/  X 

HEAD  CCL  2/  X  TO  0.05 

HEAD  CCL  3/  X  TO  0.10 

HEAD  CCL  4/  X  TO  0.15 

HEAD  C$L  5/  X  TO  0.20 

HEAD  CCL  6/  X  TO  0.25 

PRINT  123456 

REPEAT  5  TO  6  ,  5  TIMES 

TITLE2DIFFERENCE  OF  PAGE  8  OF  ACDENDA  FROM  VALUES  CALCULATED  ON  CMN I  TAB 
PRINT  1,21,22,23,24,25 
SFCP 


Figure  6-4.  Application  of  the  Repeat  mode  to  the 
calculation  of  a  table  of  fractional  powers  of  certain 
numbers • 
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Problem  6 


6 


Compute  the  function^ 

for  T  =  0,  1?  2,  ••••  40  and  S  -  “3>  — 2 ,  — 1,  0?  1,  2 ,  3 

The  OMNITAB  instructions  are  as  follows* 


GMNITAB  PROBLEM  6-6 

TITLE1  GAMMA C (6T-S)/{  12)  ) 

GENERATE  0.  IN  STEPS  OF  1.  TO  AO*  STORE  1 

HEAD  1/  T 

MULT  COL  1  BY  6.  STORE  2 

BEGIN 

SUBTRACT  -3.  FROM  COL  2  MULTIPLY  BY  .08333333  ADD  TO  COL  11 

GAMMA  CF  11  STCRE  11 

INCREMENT  1  BY  1.  0  0.  1 

INCREMENT  2  BY  1  1 

FINISH 

REPEAT  INSTRUCTIONS  1  TO  4  ,  7  TIMES 
HEAD  11/  S  =  -  3 

HEAD  12/  S  =  -2. 

HEAD  13/  S  =  -1. 

HEAD  14/  S=  0. 

HEAD  15/  S=  1. 

HEAD  CCL  16/  S  =  2. 

HEAD  17/  S  =  3. 

NOSUMMARY 

PRINT  1  11  12  13  14 
PRINT  1  15  16  17 

STOP 
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Problem  6 


7 


Using  the  relation  1  inch  =  25*4  millimeter, 
compute  a  table  to  convert  in  either  direction  for  50 
values  in  unit  steps*  Tabulate  the  values  in  each  of  the 
units  equivalent  to  integral  values  of  the  other  from  1 
to  50*  Print  the  results  in  six  columns  with  the  numbers 
1  to  25  in  column  2  and  26  to  50  in  column  5*  Arrange 
for  printing  in  blocks  of  five  instead  of  the  usual 
blocks  of  ten  provided  by  the  normal  OMNITAB  print 
instruction. 


The  OMNITAB  instructions  are  as  follows! 


GMNITAB  PROBLEM  6-7 
GENERATE  1.  1.  50.  2 
MULT  2  25.4  3 
DIV  2  25.4  I 

FORMAT ( 1X,1F10.5,1F5»0, 1F8. i , 1 F 12 • 5  * 1F5.0,1F8. 1 ) 
BLCCKTRANS FER  26,1,25,3  INTO  1,4  { SEE  FOOTNOTE) 


NEftPAGE 

NOTE 

NOTE  INCHES 

MM 

INCHES 

MM 

NOTE  + - + — 

NOTE 

BEGIN 

FABRIOGE  RCta  I  COLS  123  456 

INCREMENT  IBYI00C000 
FINISH 

REPEAT  1  2  5 
SPACE  1 
REPEAT  I  2  5 
SPACE  1 
REPEAT  1  2  5 
SPACE  1 
REPEAT  1  2  5 
SPACE  I 
REPEAT  125 

NOTE  + - + - + — - + - 4- - 4- - ♦ 

STOP 


See  section  8« 1  for  instructions  on  BLOCKTRANSFER. 
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PAGE  1  CMMTAB 


INCHES 

MM 

0.03937 

1. 

25.4 

0.07874 

2. 

50.8 

0.11811 

3. 

76.2 

0.15748 

4. 

101.6 

0.19685 

5. 

127.0 

0.23622 

6. 

152.4 

0.27559 

7. 

177.8 

0.31496 

8. 

203.2 

0.35433 

9. 

228.6 

0.39370 

10. 

254.0 

0.43307 

11. 

279.4 

0.47244 

12. 

304.8 

0.51181 

13. 

330.2 

0.55118 

14. 

355.6 

0.59055 

15. 

381.0 

0.62992 

16. 

A  06 . 4 

0.66929 

17. 

431.8 

0.70866 

18. 

457.2 

0.74803 

19. 

482.6 

0.78740 

20. 

508.0 

0.82677 

21. 

533.4 

0.86614 

22. 

558.8 

0.90551 

23. 

584.2 

0.94488 

24. 

‘609.6 

0.98425 

25. 

635.0 

- + - + 


Results  of  Problem  6  — 


EH  6  -  7 

NCHES  MM 

- + - + - + 


.02362 

26. 

660.4 

.06299 

27. 

685.8 

. 10236 

28. 

711.2 

.  14173 

29. 

736.6 

.18110 

30. 

762.0 

.22047 

31. 

787.4 

.25984 

32. 

812.8 

.29921 

33. 

838.2 

.33858 

34. 

863.6 

.37795 

35. 

889.0 

.41732 

36. 

914.4 

.45669 

37. 

939.8 

.49606 

38. 

9b  5 . 2 

.53543 

39. 

990.6 

.57480 

40. 

1016.0 

.61417 

41. 

1041.4 

.65354 

42. 

1066.8 

.69291 

43. 

1092.2 

.73228 

44. 

1117.6 

.77165 

45. 

1143.0 

.81102 

46. 

1168.4 

.85039 

47. 

1193.8 

.88976 

48. 

1219.2 

.92913 

49. 

1244.6 

.96850 

50. 

1270.0 

PRC  BL 

I 

-  + - 

1 

1 

1 

1 

1 

1 

L 

l 

l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

-  + - 

7  • 
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Problem  6—8 


Compute  log  Y  for  5  0  values  between  1.01  and  1*5  0 
from  the  series • 


log(  1  +  x)  -  x - +  — - +  — - + 

2  3  4  5  6 

and  compare  with  results  from  the  instruction  LOGE. 
The  OMNITAB  instructions  are  as  follows* 


OMNITAB  PROBLEM  6-8 
NOSUMMARY 

GENERATE  .01  .01  .5  1 

ADC  1.  1  2 

LOGE  2  10 

ADC  1.  0.  5 

BEGIN 

ADC  1.  3  3 

DIVIDE  1.  3  5  A 

RAISE  1  TO  3  MULT  BY  A  ADD  6 

MULT  5  -1.  5 

ERASE  4 

COMPARE  CCL  6  TO  COL  10  TO  l.E-4 
FINISH 

REPEAT  1  TO  6  2  TIMES 
REPEAT  1  TO  6  30  TIMES 

HEAD  2/  Y 
HEAD  6/ EXPANSION 
HEAD  10/  FUNCTION 
PRINT  2  6  10 
STOP 


The  output  from  this  problem  is  in  three  parts* 
(See  the  next  page*)  The  first  is  a  statement  that  the 
comparison  was  not  satisfied  on  2  passes  as  requested  in 
the  first  REPEAT  instruction.  This  was  followed  by  three 
columns  of  results  representing  the  status  of  the 
columns  being  compared  and  the  computed  tolerance  which 
exceeded  the  desired  tolerance  in  some  cases* 

The  second  part  is  a  statement  that  the  comparison 
was  indeed  satisfied  on  the  8th  pass  resulting  from  the 
second  REPEAT  instruction  which  would  have  permitted  30 
iterations. 

The  third  portion  is  in  response  to  the  PRINT  and 
is  not  given  automatically  as  were  the  first  two  parts* 
See  problem  9—3  for  a  solution  to  this  problem 
without  recourse  to  the  repeat  mode* 
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I  NSTRUCT I CNS 

INDICATED.  T 
9.950000E- 
1.980000E- 
2 • 955000E- 
3. 920000E- 
4 • 875000  E— 
5. 82G000E- 
6. 755000E— 
7. 680000E- 
8. 595000E- 
9•  500000E- 
1. 039500 E- 
1. 128000E- 
l  •  2  1  5500  E- 
1 • 302000E- 
1.387500E- 
1.472000E^ 

-3.432U(T(J'F 

3.487500E- 
3  •  542000E- 
3. 595500 E- 
3 •  64800QE- 
3.699500  E- 
3.750000E- 


HAVE  BEEN  REPEATED 
HE  CCM.PARE  INSTRUCT 
03  9.9503 19E-03 

02  1.980262E-02 

02  2. 955878 E-02 

02  3.922068E-02 

02  4 *  8  790 1 6E-02 

02  5  •  826890E-02 

02  6 . 765863E-02 

02  7.696105E-02 

02  8.6 17770E-02 

02  9  •  5310 18E-02 

01  1  • 043600  E-0 1 

01  1.133287E-01 

01  1.222 176E-01 

01  1.310283ET_0J 

01  lj. 

c 


01 

01 

01 

01 

01 

01 

•01 


r6744E-01 
3.6 46431 E-01 
3. 715635E-01 
3  •  784364E-01 
3.852624E-01 
3 .920421 E-01 
3  •  9  8776  IE-01 
4 .05465 1 E-01 


THE  NUMBER  OF  TIMES 
ION  HAS  NOT  BEEN  SATISFIED 
3.199856E-05 
1 .323079E-04 
2.971155 E- 04 
5 • 27  3564E-04 
8.2302 19E-04 
1  •  182348E-03 
1 • 60  55  80E-0  3 
2 • 092628E-03 
2. 64217  IE- 03 
3 • 254444E— 03 
3 • 928831E— 03 
4.665196E-03 
5.462782E-03 


■5.3/  ie-^- 

5.626472E-02 
5 • 88 C 577 E-02 
6 • 139880E— 02 
6 • 404358E— 02 
6 • 673998E— 02 
6 • 94  8763E-02 
7.228645E-02 
7.51 3622E-02 


COMPARE  SATISFIED,  CONTROL  FORCED  FROM  REPEAT  MODE  AFTER 


********** 


PAGE  1  OMNI T A B  PROBLEM  6-8 


Y 

1 • 010000E  00 
1 . 020000E  00 
1 • 030000E  00 
1  • 040000E  00 
1 . 050000E  00 
1  • 060000E  00 
1 . 070000E  00 
1 • 080000E  00 
1.090000E  00 
1.  100000E  00 


EXPANSION 

9.950331E- 
1.980263E- 
2.955880E- 
3.922071E- 
4.879016E- 
5.826891E- 
6. 765864E- 
7.696 104E- 
8 • 6 17770  E— 
9. 531018 E- 


FUNCT  ION 

9 . 95C319E-03 
1 • 980262E-02 
2.955878E-02 
3.922068E-02 
4.879016E-02 
5 • 826890E-02 
6 • 765863E-02 
7 • &96105E-02 
8. 617770 E— 02 
9.53  10 18E-02 


03 

02 

02 

02 

02 

02 

02 

02 

02 

02 


i 


8  TIMES 
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OMNITAB  DATA  135  AUGUST  1963 

TITLE1  BURK  IBM2 


READ 

1  >2 

*  3  *  4  i 

>5, 6*7*8* 

9,10*11! 

>12*: 

L  3  *  14 

*15* 

>  1 6  *  - 

L7*  18 

1*19* 

20 

2 

1235 

0 

099 

071 

C 

0 

125 

095 

325 

270 

210 

028 

730 

460 

0 

2 

1255 

225 

106 

088 

255 

220 

106 

082 

290 

255 

220 

028 

731 

450 

C 

2 

1313 

250 

0 

0 

180 

100 

117 

080 

0 

0 

220 

031 

730 

475 

( 

2 

1335 

0 

0 

0 

0 

0 

0 

0 

0 

0 

215 

029 

729 

470 

413 

2 

1345 

250 

091 

082 

190 

120 

123 

088 

330 

305 

230 

02  7 

728 

465 

415 

2 

1400 

0 

103 

074 

205 

130 

129 

091 

295 

270 

225 

027 

730 

460 

406 

2 

1415 

210 

091 

069 

210 

160 

128 

089 

260 

210 

250 

025 

727 

475 

41: 

2 

1430 

208 

090 

068 

260 

180 

133 

094 

240 

190 

250 

025 

731 

48  0. 

41/ 

2 

1445 

198 

066 

050 

260 

180 

130 

096 

230 

170 

265 

022 

735 

470 

45 

2 

1500 

155 

057 

041 

260 

200 

125 

090 

225 

165 

265 

019 

736 

450 

44 

2 

1515 

0 

053 

037 

250 

190 

109 

089 

220 

160 

260 

023 

743 

455 

4* 

2 

1530 

175 

050 

035 

230 

180 

121 

087 

245 

165 

260 

022 

745 

440 

4 

2 

1545 

0 

050 

036 

220 

180 

120 

087 

2  AO 

175 

270 

018 

745 

440 

4 

2 

1600 

155 

045 

031 

200 

160 

115 

082 

310 

180 

255 

018 

74  5 

445 

4 

2 

1615 

0 

046 

030 

200 

160 

117 

085 

265 

160 

260 

020 

745 

445 

L 

2 

1630 

150 

046 

034 

180 

150 

108 

075 

240 

155 

250 

018 

739 

445 

t 

2 

1645 

190 

050 

036 

180 

150 

107 

075 

235 

155 

260 

022 

740 

435 

2 

1700 

155 

0 

0 

0 

0 

0 

0 

0 

0 

240^ 

2 

1718 

155 

053 

036 

190 

150 

121 

086 

225 

15> 

2 

1732 

155 

055 

039 

190 

150 

119 

084 

22P* 

READ 

1*2 

*21 

2  1235  0 

2  1255  0 

2  1313  0 

2  1335  0  ^ 

2  1345  _ ^ — ' — 

2  - 

070 

"'Z  1718  0 

2  1732  084 
BEGIN 

PLOT  COLUMN 3 AG A INSTC0LUMN4 
INCREMENT  1  BYO  *  BY  1 
FINISH 

REPEAT  INSTRUCTIONS  1 THR0UGH2  18TIMES 
INCREMENT  INSTRUCTI0N1  BY  1  “17- 
REPEAT  INSTRUCTIONS  1 THR0UGH2  17TIMES 
NOLIST 
STOP 


Figure  6—5*  Instructions  in  the  Repeat  mode 
preparing  35  plots. 


for 
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7.  MATRIX  OPERATIONS 


By  this  time  it  should  be  quite  clear  that  OMNITAB 
operates  on  columns  of  numbers  in  a  fairly  automatic  and 
routine  fashion,  and  that  in  most  instances  the  length 
of  a  column  is  of  no  particular  concern  to  the  user 
since  the  program  has  its  own  way  of  keeping  track  of 
the  length  of  the  column  or,  more  correctly,  the  length 
( NRMAX)  of  the  longest  column*  The  program  derives  some 
of  its  power  and  simplicity  from  the  fact  that  once  the 
length  of  a  column  is  determined  by  the  machine  the 
instruction  set  does  not  need  to  supply  this 
information.  It  will  serve  a  purpose  later  for  us  to 
point  out  now  that  up  to  this  point  all  operations 
started  at  the  top  of  the  designated  column  and  worked 
down  to  NRMAX.  Furthermore,  all  results  are  stored  the 
same  way  and  all  normal  printout  starts  at  the  top  of 
the  column  and  extends  to  the  current  value  of  NRMAX. 

The  extension  of  the  program  to  handle  matrix 
calculations  more  directly  depends  on  a  somewhat  more 
complicated  sentence  structure  since  the  specification 
of  the  size  and  location  of  a  matrix  requires  at  least 
four  parameters.  As  soon  as  it  becomes  clear  that  there 
is  no  alternative  to  specifying  the  exact  location  of  a 
matrix  and  that  the  sentence  structure  is  still  fairly 
manageable  even  when  three  matrices  are  mentioned  in  a 
single  sentence,  certain  other  features  become  apparent. 
The  most  important  difference  between  the  vector 
operations  discussed  earlier  and  the  matrix  operations 
is  that  it  is  no  longer  necessary  to  restrict  operations 
to  the  top  rows  of  the  work  sheet.  Since  the 
specification  of  the  coordinates  of  the  first  element 
and  the  number  of  rows  and  columns  is  required  anyway, 
the  matrix  can  be  located  anywhere  on  the  work  sheet. 
Thus,  operations  can  be  performed  on  any  array  of 
numbers  and  stored  in  any  location  on  the  work  sheet. 

An  important  consideration  in  deciding  on  the 
sentence  structure  for  the  matrix  operations  was  the 
desire  to  keep  the  number  of  parameters  in  a  single 
instruction  at  or  below  10  so  that  these  instructions 
could  be  used  in  the  repeat  mode*  Fortunately,  this  was 
easily  achieved  since  in  all  of  the  operations  the 
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dimension  of  the  resulting  matrix  is  invariably  defined 
by  the  operation  and  the  original  matrix  or  matrices* 
Thus,  it  is  necessary  to  specify  only  the  coordinates  of 
the  first  element  of  the  matrix  in  storing  the  result* 
For  example,  if  a  5  x  5  matrix  is  stored  starting  in  row 
51,  column  2,  it  will  extend  to  row  55  and  to  column  6* 

The  sentences  for  20  major  matrix  operations  are 
given  in  the  next  section.  Since  the  extent  and  location 
of  the  matrices  are  always  given,  these  instructions  are 
not  subject  to  the  control  of  NRMAX  nor  do  they  modify 
NRMAX  in  any  way*  But,  NRMAX  must  still  be  reckoned  with 
if  results  are  to  be  printed  via  the  normal  print 
instructions  discussed  earlier*  This  is  a  problem  only 
when  results  are  generated  and  stored  on  the  work  sheet 
by  matrix  operations  below  the  value  of  NRMAX* 

The  advantage  of  storing  results  below  NRMAX  and 
hence  out  of  reach  of  the  normal  operations  was  deemed 
so  attractive  as  to  incorporate  a  new  print  instruction 
(called  APRINT)  which  prints  a  suitably  defined  array  of 
numbers  regardless  of  their  location  on  the  work  sheet* 
This  and  other  array  operations  are  discussed  in  the 
next  chapter. 

Since  most  of  the  matrix  operations  store  results 
directly  in  the  work  sheet  element  by  element,  care  must 
be  taken  in  storing  the  results  not  to  write  over  some 
portion  of  the  original  matrix  which  may  still  be  needed 
to  complete  the  operation.  Thus,  the  sum  of  two  matrices 
could  properly  be  stored  exactly  on  top  of  one  of  the 
addends  but  not  in  partially  overlapping  manner*  In  the 
case  of  matrix  multiplication,  the  result  must  obviously 
be  stored  in  an  area  completely  distinct  from  that 
occupied  by  either  of  the  original  matrices*  The 
instructions  INVERT,  EIGENVALUES,  EIGENVECTOR,  and 
LINEAR  are  not  subject  to  the  above  restriction  since 
the  results  are  accumulated  in  a  scratch  area  of  the 
subroutine  and  transferred  in  a  block  at  the  end  of  the 
operation. 
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7*  1*  Matrix  Operation  Commands0 


1.  MADD  [a]  IN  ,,  ++,  R  =  ,,  C  =  ,,  TO  [  b]  IN  ,  ,  ++ 
START  STORING  IN  , ,  ++ 
a*  computes  [a.  .]  +  [b.  .]  =  [a.  .  +  b.  .] 


2.  MSUB  [ A]  IN  , ,  ++,  R  =  , ,  C  =  , ,  FROM  [ b]  IN  ,  ,  ++, 
START  STORING  IN  ,,  ++ 
a«  computes  [b^^j  —  [a..,.]  =  [b.,..  —  a.,.,] 


iJ 


iJ 


ij 


iJ 


3.  SCALAR  PRODUCT  OF  [a]  IN  , ,  ++,  R  =  ,  ,  C  =  ,?  BY  ** ? 


START  STORING  IN 


++ 


Oi 


—  ** 


a*  computes  a  [A]  -  [  aa^j]  where 

MMULT  [A]  IN  , ,  ++,  R  =  ,,  C  =  ,,  BY  [b]  IN  ,,  ++ 
WITH  ,,  COLUMNS,  START  STORING  IN  , ,  ++ 
a*  computes  [a....]  [  b^k]  =  ^cikh  where 


ij 


cik  Tl^ij  bjk 

DIAGVEC  OF  [A]  IN  , ,  ++  R  =  , ,  STORE  IN  COL  ++ 
a*  stores  the  principal  diagonal  a, ^  in 
designated  column. 


li 


the 


MTRANS  OF  [ A]  IN  , ,  ++  R  =  , ,  C  =  ,  , 

START  STORING  IN  , ,  ++ 

a.  generates  the  transpose  of  the  given  R  by  C  into  a 
C  by  R  matrix. 


7.  VECMAT  [a]  IN  ,  ,  ++,  R: 


C  = 


START  STORING  IN 


++ 


a-  generates  a  column  vector  as  follows^ 


ai  l  >  ai  2 >  ai  3  atc’  a2 1  •**  a2  c  *• 

3,  y  Si  •  •  •  Si 

rt  r 2  rc 

8-  RESTMAT  FROM  ,,  ++  INTO  R  =  ,,  C  =  ,,  STARTING  IN  ,  ,  ++ 
a*  restores  a  column  matrix  into  rectangular  form, 
b.  this  operation  is  the  reverse  of  VECMAT. 

9.  TRACE  OF  [A]  IN  , ,  ++  R  =  , ,  STORE  IN  COL  ++ 

R 

a.  stores  the  sum  of  the  elements?  i^iaii  of  the 
principal  diagonal  NRMAX  times* 


In  this  chapter  R  is  the  number  of  rows  and  C  is  the 
number  of  columns  in  a  matrix.  When  a  column  is 
indicated  in  an  instruction  without  a  row  designation? 
the  column  is  operated  upon  starting  with  row  one* 
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10-  COLNORM  [a]  IN  ,,  ++  R  =  , ,  C  =  , , 

START  STORING  IN  ,,  ++ 
a*  normalizes  the  matrix  by  columns* 

b*  divides  the  elements  in  the  jth  column  by  the 
square  root  of  the  sum  of  squares  of  the  elements  in 
the  jth  column* 

b.  .  =  a  /  V L  a?  . 

iJ  iJ  v  i  ij 

11.  ROWNORM  [  A]  IN  ,,  ++  R  =  ,  ,  C  =  ,  , 

START  STORING  IN  ,  ,  ++ 
a*  normalizes  the  matrix  by  rows* 

b*  divides  the  elements  in  the  ith  row  by  the 
square  root  of  the  sum  of  squares  of  the  elements  in 
the  ith  row* 


ij 


/ys 

j 


—2 “ 

aij 


12*  MRAISE  [ A  ]  IN  , ,  ++  R  =  , ,  C  =  , ,  TO  **, 

START  STORING  IN  , ,  ++ 

a*  raises  the  elements  of  the  matrix  to  a  constant 
power ( **) * 

13-  TRANSFORM  [  A.1  IN  , ,  ++  R  =  , ,  J  R  =  , ,  ROWS  OF  [  u] 

IN  , ,  ++  START  STORING  IN  , ,  ++  T 

a*  provides  for  the  transformation  B  =  UAIT  where 


[Bl  '  [^1 ' 1  X  % 

14-  BACKTRANS  [  a]  IN  , ,  ++  R  =  , ,  ;  R  =  , ,  ROWS  OF  [  u] 

IN  , ,  ++  START  STORING  IN  , ,  ++ 
a*  provides  for  the  back  transformation  C  =  UaAU 
where 

r  ,  r  i  R  R 

L  cj  =  Lc.  .J  =  E  s  u.  .  A.  u  . 

iJ  k=l  *1=1  ki  raJ 

15-  SYMUTm[a]  IN  ,,  ++,  R  =  ,, 

a*  fills  out  an  R  by  R  symmetric  matrix  from  the 

designated  upper  triangular  matrix* 

16-  symltm[a]  IN  R  =  ,, 

a*  fills  out  an  R  by  R  symmetric  matrix  from  the 

designated  lower  triangular  matrix* 
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17.  EIGENVALUES  OF  [  A]  IN  , ,  ++  R  =  ,  , 

STORE  ROOTS  IN  COL  ++ 

a»  stores  the  roots  of  a  symmetric  matrix  in  the 
designated  column. 

b.  results  are  stored  starting  in  row  one  regardless 
of  the  location  of  the  original  matrix. 

18-  EIGENVECTORS  OF  [ A j  IN  , ,  ++  R  =  > ,  PUT  ROOTS  IN 
COL  ++  AND  VECTORS  STARTING  IN  , ,  ++ 
a.  stores  the  roots  starting  in  row  1  and  the 
eigenvectors  of  a  symmetric  matrix  as  indicated. 

19.  LINEAR  EQ  IN  ,,  ++  R  =  , ,  RIGHT  HAND  SIDE  IN  COL  ++, 
STORE  SOLUTIONS  IN  COL  ++ 

a*  solves  a  system  of  n  linear  equations  in  n 
unknowns  (  2  <  n  <  45)  • 

b«  solves  algebraically  and  not  in  the  least  squares 
sense  as  does  the  instruction  SOLVE. 

c.  the  value  of  the  determinant  of  the  coefficients 
is  stored  in  row  one,  column  46. 

20-  INVERT  [a]  IN  ,,  ++  R  =  , ,  START  STORING  IN  , ,  ++ 

a.  inverts  a  matrix  as  large  as  46  by  46. 

b.  computes  a  matrix  [ bJ  such  that  L A  J  [ b]  =  [ij  > 
where  [if  is  a  unit  matrix. 

c*  the  value  of  the  determinant  of  the  coefficients 
is  stored  in  row  one,  column  46* 


186 


7- 2 •  Problems  Solved  via  Matrix  Operations 


PAGE  1  CMMTAB  PROBLEM  7  -  1 


CONSIDER 

THE  MATRIX 

1.0000 

0. 

0. 

0. 

0. 

0.0294 

0.9996 

0. 

0. 

0. 

0.4922 

0.2023 

0.8466 

0. 

0. 

0.5722 

0.6218 

-0.0344 

0.5336 

0. 

0.5032 

0.6533 

0.3764 

-Q.C671 

0.4619 

AND  ITS 

INVERSE  AS 

GIVEN  IN  A 

WELL  KNOWN 

TEXT  AS 

1.00000 

0. 

0. 

0. 

0. 

-0.02940 

1.00040 

0. 

0. 

0. 

-0.57440 

-0.23916 

1.18120 

0. 

0. 

-1.07510 

-1.  18120 

0.07610 

1.87410 

0. 

-0.81540 

-1.54190 

—  1 .05420 

0.30160 

2.39870 

CHECK  THE  ABOVE  INVERSE,  THEN  INVERT  DIRECTLY  AND  BY  A 
BRUTE  FORCE  METHOD*  PRINT  THE  RESULTS  IN  SUCH  A  WAY  AS  TO 
DISPLAY  THE  GUALITY  OF  THE  RESULTS  ON  A  SINGLE  PAGE. 


Aside  from  illustrating  certain  matrix  operations 
this  and  the  two  pages  immediately  following  provide  a 
preview  to  the  report  writing  capabilities  of  OMNITAB. 
The  above  problem  statement  was  prepared  via  the 
computer  by  appropriate  use  of  NOTE,  SPACE,  FORMAT,  and 
T PRINT  instructions.  How  this  is  done  can  be  seen  from 
the  list  of  commands  following  the  results*  This  feature 
is  discussed  more  fully  in  chapter  11- 

Returning  to  the  matrix  problem,  note  should  be 
taken  of  the  following!  a)  the  published  inverse  suffers 
from  either  rounding  or  other  errors  and  how  this  is 
confirmed  by  multiplying  the  matrix  by  its  inverse;  b) 
although  the  two  methods  employed  in  OMNITAB  give  the 
same  result  to  six  decimals,  the  direct  method  is  more 
precise  —  an  indication  of  this  is  given  by  how  the  zero 
is  printed  in  the  unit  matrix.  Here  a  0.  is  a  zero  while 
a  0. 0000000  is  only  some  number  smaller  than  10E— 7. 
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THE  MATRICES  BELOW  ARE  THE  RESULT  OF  MULTIPLYING 
A  BY  ITS  INVERSE.  THEY  SHOULD  BE  UNIT  MATRICES. 
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THE  ABCVE  IS  THE  CMNITAB  SOLUTION  VIA  INVERT 


OMNITAE  PROBLEM  7-1 
READ  12345 
1.0  0.  0.  0.  0. 

.0294  .9996  0.  0.  0. 

.4922  .2023  .8466  0.  0. 

.5722  .6218  -.0344  .5336  0. 

.5032  .6533  .3764  -.0671  .4619 
READ  11  12  13  14  15 
1.0  0.  0.  0.  0. 

-.0294  1.0004  C.  0.  0. 

-.5744  -.23916  1.1812  0.  0. 

-1.0751  -1.1812  .0761  1.8741  0. 

-.8154  -1.5419  -1.0542  .3016  2.3987 
NEW  PAGE 
SPACE  3 

NOTE  CONSICER  THE  MATRIX 

SPACE  2 

FORMAT ( IX  f  5F 10 . 4 ) 

TPRINT  12  345 

SPACE  2 

NOTE  AND  ITS  INVERSE  AS  GIVEN  IN  A  WELL  KNOWN  TEXT  AS 


SPACE  2 

FORMAT (2X»5F10.5) 

TPRINT  11  12  13  14  15 
SPACE  2 

NOTE  CHECK  THE  ABOVE  INVERSE,  THEN  INVERT  DIRECTLY  AND  BY  A  BRUTE 

NOTE  FORCE  METHOD.  PRINT  THE  RESULTS  IN  SUCH  A  WAY  AS  TO  DISPLAY 

NOTE  THE  QUALITY  OF  THE  RESULTS  ON  A  SINGLE  PAGE. 

ACC  1.  0.  42 

MMULT  1  1  5  5  BY  1  11  5  1  21 
FORMAT (lXf5F10.4) 

TITLE1 

TITLE3W  ARE  THE  RESULT  OF  MULTIPLYING 
TITLE2 

TITLE4  THEY  SHOULD  BE  UNIT  MATRICES. 


THE  MATRICES  BELO 
A  BY  ITS  INVERSE. 


F PR I NT  1  2  3 
SPACE  1 

4  5 

NOTE  THE 

ABOVE 

IS 

THE 

ORIGINAL 

MATRIX 

A 

SPACE  2 

FORMAT (2X,5F10.5»  2X, 

5F1C. 

6) 

TPRINT  11  12 
SPACE  1 

13  14 

15 

21 

22 

23 

24 

25 

NOTE  THE 

ABOVE 

IS 

THE 

INVERSE 

GIVEN  IN 

THE 

SPACE  2 

DIAGCNALIZE 

1.  31  35 

BEGIN 

SFIT  31  42 

1  2  3 

4 

5 

INCREMENT  1 
RESET  6 

BY  1  0 

0 

COO 

0 

PRCMCTE  1  45 

21 

INCREMENT  4 
RESET  5 
FINISH 

BY  0  0 

1 

REPEAT  1  6  5 
MMULT  1  1  5 

5  1  21 

5 

1  31 

FORMAT I3X,5F10.6, IX 

♦5F10.6) 

TPRINT  21  22 
SPACE  1 

23  24 

25 

31 

32 

33 

34 

35 

NOTE  THE 

AEOVE 

IS 

THE 

OMNITAB 

SOLUTION 

VIA 

SPACE  2 

INVERT  1  1  5 

1  21 

MMULT  1  1  5 

5  1  21 

5 

1  31 

TPRINT  21  22 
SPACE  1 

23  24 

25 

31 

32 

33 

34 

35 

NOTE  THE 

AEOVE 

IS 

THE 

OMNITAB 

SOLUTION 

VIA 

STOP 
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8.  ARRAY  OPERATIONS 


Experience  gained  in  incorporating  the  matrix 
operations  into  OMNITAB  pointed  clearly  to  the  advantage 
to  be  gained  in  being  able  to  handle  entire  arrays  of 
numbers  as  easily  as  column  vectors*  In  many 
calculations  in  thermodynamics  and  other  field, 
operations  must  be  performed  on  all  the  elements  of  an 
array*  It  seemed  natural  therefore  to  add  the 
instruction  ALOGE  to  take  the  logarithm  of  each  element 
of  an  array*  It  also  seemed  natural  to  extend  certain  of 
the  operations  on  matrices  to  a  more  general  form*  Thus 
instead  of  simply  multiplying  a  matrix  by  a  scalar 
factor  or  by  a  vector  (a  set  of  scalars)  we  have  a 
provision  for  multiplying  each  element  of  a  matrix  by 
its  corresponding  element  in  another  matrix* 

Here  also  the  requirement  to  define  clearly  the 
location  of  the  array  permits  us  to  operate  on  any  array 
and  to  store  the  result  in  any  location  of  the  work 
sheet*  This  feature  is  a  great  help  in  those  problems  in 
which  the  columns  are  short  but  which  require  more  than 
the  46  columns;  in  effect  provides  an  extension  to  the 
equivalent  of  96  or  even  over  200  columns  of  appropriate 
length.  Obviously  the  storage  of  many  short  columns 
throughout  the  work  sheet  puts  more  stringent 
requirements  on  the  bookkeeping  aspects  of  a 
calculation. 

Special  attention  should  be  drawn  to  the  instruction 
BLOCKTRANSFER  which  permits  moving  an  entire  block  of 
data*  One  important  application  of  this  instruction  is 
to  move  a  block  of  data  up  to  the  top  of  the  work  sheet 
just  prior  to  printing  via  the  normal  PRINT  or  FPRINT 
instruction.  Note  should  also  be  taken  of  the  APRINT 
instruction  which  prints  the  specified  array  without 
moving  it* 
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8* 1.  Commands  for  Operating  on  Arrays 


1.  ARAISE  [a]  IN  , ,  ++  R  =  , ,  C  =  , ,  TO  [b]  IN  , ,  ++ 
START  STORING  IN  , ,  ++ 

a.  raises  each  element  of  the  first  matrix  to  the 
corresponding  element  of  the  second  matrix. 

ARAISE  [a]  IN  , ,  R  =  , ,  C  =  , ,  TO  COL  ++, 

START  STORING  IN  , ,  ++ 

a-  raises  each  row  of  the  matrix  to  the  power  in  the 
correspondong  row  of  the  designated  column. 

2-  ALOGE  OF  [a]  IN  , ,  ++,  R  =  ,,  C  =  ,, 

START  STORING  IN  ,  ,  ++ 

a-  takes  the  natural  logarithm  of  each  element  of  the 
array. 

3-  ALOGTEN  OF  [  a]  IN  ,  ,  R  =  ,  ,  C  =  ,  , 

START  STORING  IN  ,  ,  ++ 

a*  takes  the  common  logarithm  of  each  element  of  the 
array. 

4-  ADIVIDE  [a]  IN  , ,  ++  R  =  , ,  C  =  ,,  BY  $$, 

START  STORING  IN  , ,  ++ 

a*  divides  each  element  of  the  array  by  a  constant  if 
$$  carries  a  decimal  point. 

b.  divides  each  row  of  the  array  by  the  value  in  the 
corresponding  row  of  the  designated  column  if  $$  is  a 
column  number. 

5-  AMULT  [a]  IN  ,,  ++  R  =  , ,  C  =  ,,  BY  [ bJ  IN  , ,  ++, 

START  STORING  IN  , ,  ++ 

a*  multiplies  each  element  of  [ A  J  by  the 

corresponding  element  of  [  B 1  - 

6.  MINEL  OF  [aJ  IN  , ,  ++  R  =  , ,  C  =  ,,  STORE  IN  COL  ++ 

a.  finds  the  minimum  element  of  the  matrix,  and 

stores  this  quantity  as  a  vector  in  the  designated 
column. 

b.  stores  the  coordinates  of  the  minimum  value  in  row 
1  of  columns  45  and  46  (see  table  A). 

7-  MAXEL  OF  [A}  IN  , ,  ++  R  =  , ,  C  =  ,,  STORE  IN  COL  ++ 

a •  finds  the  maximum  element  of  the  matrix,  and 

stores  this  quantity  as  a  vector  in  the  designated 
column. 


When  a  column  is  indicated  in  an  instruction  without  a 
row  designation,  the  column  is  operated  upon  starting 
with  row  one* 
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b«  stores  the  coordinates  of  the  minimum  value  in  row 
1  of  columns  45  and  46  (see  table  A). 

8-  BLOCKTRANSFER  [  A j  IN  ,  ,  ++  R  =  , ,  C  =  ,,  TO  , ,  ++ 

a.  moves  the  matrix  to  the  designated  new  location* 
b*  leave  original  matrix  unchanged. 

9-  APRINT  [ A]  IN  , ,  R  =  , ,  C  =  , , 

a*  obeys  the  built-in  format  if  C  is  less  than  or 
equal  to  8  columns. 

b.  if  C  exceeds  8  columns  the  matrix  is  printed  out 
by  rows  with  8  numbers  per  line  of  output  until  the 
row  is  finished. 

c.  each  row  of  the  matrix  starts  a  new  line  in  the 
printout . 

d.  does  not  start  a  new  page  as  does  PRINT  and 
FPRINT. 

10-  VECMULT  [a]  IN  ,  ,  ++ R  =  ,  ,  C  =  ,  ,  BY  $$  STORE  IN  , ,  ++ 
a*  multiplies  each  element  of  the  array  by  a  constant 
if  $$  carries  a  decimal  point. 

b*  multiplies  each  row  of  the  array  by  the  value  in 
the  corresponding  row  of  the  column  if  $$  is  a  column 
number . 

11.  COALESCE  ON  FIRST  COL  OF  [  Aj  IN  , ,  ++  R  =  ,  ,  C  =  ,, 
START  STORING  IN  , ,  ++ 

a*  adds  together  the  elements  in  each  column  of  the 
array  corresponding  to  identical  elements  in  the 
first  column. 

b.  unless  the  location  of  the  first  element  of  the 
result  coincides  with  the  location  of  the  first 
element  of  the  original  array?  the  two  arrays  must 
not  overlap. 

c«  the  number  of  rows  in  the  coalesced  array  is  equal 
to  the  number  of  different  values  contained  in  the 
first  column  of  the  matrix. 

12-  COALESCE  ON  **  IN  FIRST  COL  OF  [ A]  IN  , ,  ++  R  =  , , 

C  =  , ,  START  STORING  IN  , ,  ++ 

a.  adds  together  the  elements  in  each  column  of  the 
array  corresponding  to  **  in  the  first  column. 

b.  if  the  designated  value  is  not  found?  a  row  of 
zeros  is  stored  in  the  designated  location. 

c.  here  the  number  of  rows  in  the  result  is  one. 

13-  ARRAYAVERAGE  ON  FIRST  COL  OF  [a]  IN  , ,  ++,  R  =,  , 

C=, ,  START  STORING  IN  , ,  ++ 
a.  averages  the  elements  in  each  column  of  the  array 
corresponding  to  identical  elements  in  the  first 
column. 
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b.  unless  the  location  of  the  first  element  of  the 
result  coincides  with  the  location  of  the  first 
element  of  the  original  array,  the  two  arrays  must 
not  overlap* 

c«  the  number  of  rows  in  the  averaged  array  is  equal 
to  the  number  of  different  values  contained  in  the 
first  column  of  the  matrix* 

14-  ARRAYAVERAGE  ON  **  IN  FIRST  COL  OF  [  a]  IN  , ,  ++ 

R  =  , ,  C  =  , ,  START  STORING  IN  , ,  ++ 
a-  averages  the  elements  in  each  column  of  the  array 
corresponding  to  **  in  the  first  column* 
b.  if  the  designated  value  is  not  found,  a  row  of 
zeros  is  placed  in  the  designated  location, 
c*  here  the  number  of  rows  in  the  result  is  one* 

15*  DUPLICATE  ,,  TIMES  THE  ARRAY  IN  , ,  ++ 

R  =  , ,  C  =  , ,  START  STORING  IN  ,  ,  ++ 
a*  duplicates  an  array  of  numbers  as  indicated 
vertically  downward* 

b«  the  storage  location  should  not  overlap  the 
original  array* 

c*  increases  NRMAX  accordingly. 


193 


8*2*  Problems  Involving  Array  Operations 


Problem  8-1 


Compute  the  tables  of  compressibility  factors  for 
deuterium  from  the  relations* 


Z  =  PV/RT  =  exp[ B( T)  p  +  C(T)p2] 

where 

B(T)  =  o.  0055298T-1^4  -  0- 036040T-3/4  -  0- 25878T-5/4 

and 

C(T)  =  0-00580  T"3/2  -  0-0565  T~2 

for  T  =  20(  2)  50(  5)  100(  10)  250°K 


and  p  -  20(20)100  Amagats* 

The  OMNITAB  instructions  are  as  follows^ 

OMMTAB  PROBLEM  8  -  1  COMPRESSIBILITY  FACTOR  OF  DEUTERIUM 
NGSUMMAR Y 

GENERATE  20 . { 2 .  )  50. ( 5.  )  ICO  .  {  10.  )  250 .  IN  II 
RAISE  11  TO  -.25, MULT  BY  .0055298,  STORE  IN  12 
RAISE  11  TO  -.75, MULT  BY  -.036040,  STORE  IN  12 
RAISE  11  TO  -1.25,  MULT  BY  -.25878,  ADD  TO  12 
RAISE  11  TO  -1.5  ,  MULT  BY  .00580,  ADD  TO  13 
RAISE  11  TO  -2.  POWER, MULT-. 0565, 13 
RESET  0 

READ  1,2, 3,4,5 

20.  40.  60.  80.  100. 

2.7182818  2.7182818  2.7182818  2.7182818  2.7182818 
DUPLICATE  49  TIMES  1,1, 1,5  INTO  2,1 
DUPLICATE  50  TIMES  2, 1,1,5  INTO  51,1 
RESET  50 

SCALAR  PROD  1,1,50,5,  BY  COL  12,  START  STORING  1,21 

ARAISE  1,1,50,5  TO  2.  , STORE  1,1 

SCALAR  PROD  1,1,50,5  BY  COL  13,  STORE  1,1 

MACD  1,1,50,5  TC  1,21,  STORE  1,31 

ARAISE  51,1,50,5  TO  1,31,  1,1 

HEAD  CCL  11/  T  DEG  K 

HEAD  CCL  12/  B 

HEAD  CCL  13/  C 

PRINT  11,12,13 

FIXEC  5 

PRINT  11  1  2  3  4  5 
STOP 
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Problem  8 


2 


In  certain  operations  it  is  necessary  to  merge  two 
matrices  so  as  to  form  a  single  matrix  built-up  of 
alternating  columns  from  each  of  the  original  matrices* 
Let  [a]  be  in  columns  1  —  4  and  [  BJ  in  columns  5  —  8* 
Assume  the  matrices  are  20  rows  long.  Arrange  this  to 
end  up  with  the  desired  array  in  columns  1—8. 


The  OMNITAB  instructions  to  do  this  are: 

Method  1. 


PROMOTE  0  ROWS  1,11,2,13,3,15,4,17 
PROMOTE  0  ROWS  5,12,6,14,7,16,8,18 
BLOCKTRANS  1,11,20,8,  INTO  1,1 

Method  2* 


DEMOTE  BY  50  ROWS  1, 1, 2, 3, 3, 5, 4, 7 
RESET  20 

DEMOTE  BY  50  ROWS  5, 2, 6, 4, 7, 6, 8, 8 
PROMOTE  ARRAY  50  ROWS 


Method  3. 

EXCHANGE  COLS  1,11,2,13,3,15,4,17,5,12,6,14,7,16,8,18 
BLOCKTRANSFER  1,11,20,8  INTO  1,1 


If  the  restriction  to  having  the  result  in  column 
1-8  were  removed,  the  single  exchange  instruction 
above,  would  have  solved  the  problem.  Furthermore  even 
with  the  above  restriction,  the  operation  can  be  carried 
out  even  more  succinctly  as  follows: 


EXCHANGE  2, 5, 5, 3, 4, 6, 6,7 
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9.  MATHEMATICAL  AND  SPECIAL  OPERATORS 


Early  attempts  on  our  part  to  design  a  general- 
purpose  computer  program,  dating  back  to  1959,  centered 
around  a  series  of  specialized  operators  called  adders, 
transformers,  and  compilers*  These  took  one  or  more 
columns  of  numbers  and  operated  on  them  via  an  incidence 
matrix  of  coefficients  in  the  case  of  the  function  adder 
and  transformer,  and  an  incidence  matrix  of  both 
coefficients  and  exponents  in  the  case  of  the  compiler* 

Although  the  operators  proved  quite  successful,  they 
were  discarded  in  the  later  stages  of  the  development  of 
OMNIFORM  I  program  (see  reference  to  NBS  Technical  Note 
125  on  page  1  )  for  a  single  operator  which  seemed  more 
attractive  in  view  of  the  then  limited  core  storage  and 
programming  capability* 

The  arrangement  of  OMNITAB  subroutines  into  a  system 
under  IBSYS  has  removed  the  necessity  of  choosing 
between  one  or  another  method  of  handling  a  particular 
type  of  problem.  Under  the  present  system  two  or  more 
methods  can  be  made  available  especially  if  each  method 
has  its  own  domain  of  problems  which  it  handles  with 
singular  efficiency*  The  nature  and  advantage  of  such 
operators  can  be  appreciated  better,  perhaps,  by 
considering  the  following  example  from  thermodynamics* 

The  concentration,  C.,  of  species  —  molecules,  for 
example  —  in  a  gaseous  system  under  equilibrium 
conditions  can  be  written  in  terms  of  the  concentration 
oi  .  of  a  set  of  reference  species  -  atoms  -  in  the 
following  way  ( at  a  fixed  temperature  and  pressure) • 


ci  ■  ki ;  “  /1J 


where  k^  is  a  given  vector  of  constants,  a  is  a  vector 
of  concentrations  of  the  reference  species^and  r.  .  is  an 
incidence  matrix  of  exponents*  It  is  most  efficient  if 
the  vectors  and  matrices  for  such  problems  are  read  in 
as  data  rather  than  incorporated  in  the  instruction  set* 
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The  solution  of  this  problem  for  25  values  of 
employing  operators?  would  go  as  follows^ 


OMNITAB 

SET  IN  COL  20  THE  FOLLOWING  VALUES  OF  KI 

k2  . one  or  more  cards  follow 

READ  COL  1,  2,  3,  4,  5 


1  >  ^  2  > 

READ  COL  11,  12,  13, 

**li  **12  rl3 
1*21 


r  2  5  M 


.  •  1  card 

14,  15 


matrix 


25  rows 


DUPLICATE  24  TIMES  1,1, 1,5  INTO  2,1 
ARAISE  1,1,25,5  TO  R  IN  1,11,  STORE  IN  1,21 
PRODUCT  COLS  20  THRU  25,  STORE  IN  26 
PRINT  COL  26,20 
STOP 


The  power  of  the  method  should  be  evident  after 
observing  that  once  the  data  are  entered,  the  entire 
calculation  is  achieved  in  only  three  instructions* 

The  operator  EXPAND,  which  raises  a  vector  of  values 
to  a  succession  of  powers  in  uniform  increments,  is  of 
value  in  generating  the  vectors  for  curve  fitting  when 
the  functional  form  is  a  polynomial  with  some  of  the 
terms  missing. 

Finally  the  evaluation  of  series  expansions  in  terms 
of  the  variables  x,  or  x  log  x,  or  x  sin  x,  or  even  in 

b  ~cx 

terms  containing  x  e  is  greatly  facilitated  by 
suitably  defined  operators.  In  the  next  section  we  give 
15  such  operators.  The  first  of  these  evaluates 


from  the  single  instruction 

FORMULA  1,  X  IN  COL  1,  PARAMETERS  FOR  10  TERMS  IN  COL  2, 

STORE  IN  COL  3 
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This  instruction  assumes  that  the  parameters 
(coefficients  and  exponents)  are  stored  in  the 
designated  columns  as  follows  . 

a*’  bi>  a2,  b2,  ....  an  ,  bn 

There  are  no  restrictions  on  the  values  of  a.  or  b. 
except  that  the  resultant  values  must  be  real*  3  3 


9* 1*  Mathematical  Operators 


1*  FORMULA  ,,  OF  $$,  PARAMETERS  FOR  ,,  TERMS  IN  ++, 

STORE  IN  COL  ++ 

a*  this  instruction  substitutes  the  parameters 

(coefficients  and  exponents)  a.,  b.>  c.>  d.>  into  the 

«3  J  «3  J 

designated  formula  having  the  designated  number  of 
terms* 

b*  the  parameters  are  stored  in  the  order  b a2> 

b2,  etc  or  a^  b.^  d^  a2>  ,  c2?  d2>  a3>  etc  as 

applicable* 

c*  the  formulas  are  as  follows^ 


Formula  1 

Formula  2 

Formula  3 

Formula  4 

Formula  5 

Formula  6 

Formula  7 


b  . 

=  2  a.X  3 
3  3 

bi 

=  2  a.X  JlogX 

j  J 

b  . 

=  2  a.X  JlnX 
j  J 

b.  d 

=  2  a.X  Jexp(c  .X  J) 

3  3  3 

c  . 

=  2(a./b.)  X  J(sin  X) 
j  J  J 

b.  d. 

=  2  a.X  J(sin  c.X)  3 
3  3  3 


d  . 
J 


d  . 
J 
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2* 


Formula  8 

Formula  9 

Formula  10 

Formula  11 

Formula  12 

Formula  13 


b  .  d  . 

2  a .X  cos  c  .X)  J 
.  J  3 

J 

.  c  .  d  . 

2(  a  ,/b  .)  X  J(  tan  X)  J 
j  J  J 

b  .  d  . 

2  a  .X  J(tan  c  ,X)  J 

j  J  J 

b  . 

2  a  .( sinh  X)  J 
j  J 

b  . 

2  a  .(cosh  X)  J 

j  3 

b  . 

2  a  .  ( tanh  X)  J 

j  J 


Formula  14 


2 

j 


a.  tt/2  +  b.arcsin  X 
J  J 


Formula  15 


2 

J 


a .  tt/2  +  b  .arctan  X 
J  J 


EXPAND  $$  TO  , ,  POWER  IN  INTERVALS  OF 
STORING  IN  COL  ++ 


9  9 


START 


a*  provides  for  exponentiation  of  a  column  of  numbers 
to  integral  values  of  the  exponent  in  uniform 
integral  steps* 

b*  for  example  EXPAND  COL  1,  TO  8,  2,  5  generates  the 
2nd,  4th,  6th,  and  8th  powers  of  the  numbers  in 
column  1  and  stores  these  results  in  column  5  et  seq* 
c*  the  exponentiation  is  carried  out  by 
multiplication. 


3-  EXPAND  $$  TO  **  POWER  IN  INTERVALS  OF  **  START 
STORING  IN  COL  ++ 

a*  same  as  above  but  for  nonintegral  powers* 

b*  for  example  EXPAND  COL  1,  TO  4*5,  0*5,  5  generates 

the  0*5,  1*0,  1*5 .  4*5  powers  of  the  values  in 

column  1  and  stores  these  in  column  5  et  seq* 


4*  PRODUCT  OF  COL  ++  TO  ++,  STORE  IN  ++ 

a*  provides  for  the  product  (row  by  row)  of  the 
elements  in  each  row  the  contiguous  designated 
columns  and  stores  the  resulting  vector  as  indicated* 


5*  PRODUCT  OF  COL  ++,  ++,  ++,  ...  STORE  IN  ++ 

a*  provides  for  the  product  (row  by  row)  of  the 
elements  in  the  designated  columns  and  storing  of  the 
resulting  vector* 

b*  there  must  be  3  or  more  columns  in  the  product* 
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9*  2*  The  Utility  of  Special  Operators 


The  operators  discussed  earlier  in  this  chapter, 
while  very  useful  and  efficient  tools,  are  not  really 
the  ultimate  that  can  be  achieved  in  a  problem-oriented 
set  of  instructions*  Their  principal  merit  is  that  since 
they  are  mathematical,  they  have  a  fairly  wide 
application.  In  this  section  we  illustrate  the  utility 
of  a  series  of  instructions  which  we  consider  to  be  the 
ultimate  point  to  which  one  can  with  profit  push  a 
problem-oriented  instruction  set  (We  resist  the 
temptation  to  use  the  word  '’language". )  *  Before 
discussing  the  macro  instructions  which  have  been 
programmed  in  OMNITAB  to  handle  certain  recurring 
calculations  in  thermodynamics,  we  think  it  profitable 
to  illustrate  the  motivation  for  such  macro  instructions 
with  a  more  familiar  problem  from  elementary 
mathematics. 

Consider  an  array  of  numbers  arrayed  in  3  columns 
which  give  on  successive  rows  the  length  of  the  sides  of 
a  number  of  triangles.  It  is  required  to  find  the  areas 
of  each  triangle  from  the  well-known  formula 

A  =  V  s( s— a) ( s— b) ( s-c) 

where  s  is  the  semiperimeter.  We  leave  it  to  the  reader 
to  confirm  the  fact  that  the  problem  can  be  solved  in 
OMNITAB  via  about  9  simple  instructions  exclusive  of  the 
input  and  output. 

Can  one  conclude  that  the  program  as  presently 
arranged  is  quite  suitable  to  handle  problems  of  this 
kind?  Our  view  is  that  it  is  indeed  suitable  if  the 
problem  arises  only  rarely.  If  the  problem  is  a 
recurring  one  as  it  would  be  in  some  problems  in 
surveying,  then  it  is  a  waste  of  valuable  time  to  be 
forced  to  solve  the  problem  in  detail  with  9  or  so 
instructions.  It  makes  more  sense  to  incorporate  in  the 
program  a  short  routine  which  responds  to  the 
instruction 

AREA  OF  TRIANGLES  WHOSE  SIDES  ARE  IN  COLS  1,2,3, 

STORE  IN  COL  4 

The  program  COGO  discussed  in  chapter  2  is  composed  of 
approximately  100  such  commands  applicable  to  the 
solution  of  coordinate  geometry  problems  related  to 
civil  engineering.  It  is,  in  our  view,  an  excellent 
model  of  the  successful  application  of  a  problem- 
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oriented  interpretive  program  which  has  been  pushed  to 
an  ultimate  level*  We  are  convinced  that  in  such 
intelligent  extensions  into  other  specialized  areas  lies 
the  key  to  more  widespread  and  efficient  use  of 
computers  in  the  future*  This  is  especially  true,  we 
feel,  since  such  programs  as  OMNITAB  and  COGO  are 
ideally  suited  for  remote  operations  via  teletype  or 
other  telecommunication  channels* 

In  the  following  section,  we  describe  a  half  dozen 
macro  instructions  in  thermodynamics  which  have  been 
finished  in  time  for  inclusion  in  this  Handbook.  They 
represent  only  a  part  of  what  is  planned  for  a  truly 
pushbutton  capability  in  thermodynamics*  They  should, 
however,  suffice  to  point  the  way  in  other  areas  of  pure 
and  applied  science* 


9*3*  Special  Operators  for  Thermodynamics 


1*  CTOF  OF  $$,  STORE  IN  COL  ++ 

a*  converts  temperatures  from  the  Celsius  scale  to 
the  Fahrenheit  scale* 

°F  =  1.  8°C  +  32 

2-  FTOC  OF  $$,  STORE  IN  COL  ++ 

a*  converts  temperatures  from  the  Fahrenheit  scale  to 
the  Celsius  scale* 

°C  =  (°F-32  )/l-  8 

3-  ATOMIC  MASS  TABLE  STORE  IN  ++ 

a*  stores  as  designated,  the  atomic  masses  of  the 
elements  in  order  of  Z  number  from  1  for  Hydrogen  to 
101  for  Mendelevium* 
b*  changes  NRMAX  to  101* 

c*  atomic  weights  are  taken  from  T*  Batuecas  and  J* 
Gueron,  Preliminary  Report  of  the  Commission  on 
Atomic  Weights.  Reprint  from  Information  Bulletin  No* 
14b,  International  Union  of  Pure  and  Applied 
Chemistry. 

4*  MOLWT  Z=,,  AMOUNT  =, ,  Z=,  ,  AMOUNT  =, ,  . 

STORE  SUM  IN  COL  ++ 

a*  computes  molecular  weight  of  the  molecule 
indicated.  For  example  water  (H20): 

MOLWT  1,2,  8,1  STORE  IN  COL  5 
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b*  all  atomic  masses  are  included  up  to  and  including 
Nobelium  (Z=102)« 

c.  atomic  weights  are  taken  from  T.  Batuecas  and  J* 
Gueron,  Preliminary  Report  of  the  Commission  on 
Atomic  Weights* 

5*  EINSTEIN, TEMP  IN  $$, VIBRATIONAL  FREQ( IN  WAVE  NO) IN  $$ 
or 

EINSTEIN, TEMP  IN  $$, FREQUENCY  IN  $$,GAS  CONSTANT  R=, , 
a*  computes  and  stores  automatically  as  indicated  the 
contributions  to  the  thermodynamic  properties  of  a 
harmonic  oscillator  in  one  degree  of  freedom  for 
desired  temperatures  and  vibratonal  frequencies  as 
follows* 


St  or  age 
Column 

(E)  wave  numbers 

40 

(T)  temperatures 

41 

-(F°-Ej  )/RT  =  -ln(  1— exp(-x)) 

42 

( H° - E j  )/RT  =  x  exp(— x)/ (  1  — exp(-x)) 

43 

S0/R  =  “( F°  — Eq  )/RT  +  (H°-Eo  ;/RT 

44 

C^/r  -  x^exp(— x)/(l  -^exp(— x) )  ^ 

45 

(H°-E°0  )/r 

46 

where  x  =  hcE/kT  and  hc/k  =  1*43879 


b*  if  a  value  of  R  is  given,  the  stored  thermal 
functions  are  multiplied  by  R* 

c*  zeros  are  entered  for  all  of  the  functions  when  a 
zero  is  encountered  in  the  temperature  column* 
d*  negative  temperatures  and  wave  numbers  are  not 
allowed* 

e*  input  can  come  from  any  column* 

6-  PFTRANS  TEMP  IN  $$,  MOLECULAR  WEIGHT  ( M)  IN  $$ 

a*  computes  and  stores  automatically  as  indicated  the 
translational  contr ibutat ions  to  the  thermal 
functions* 
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Storage 

Column 


(T)  temperatures  41 

-(F°-Ej  )/RT  =  2-5  In  T  +  1.5  In  M  -3-66495  42 
( H°  — Eq  )/RT  =  2-5  43 

S0/R  =  ( H°  — Ej  )/RT  -  (F°-Eo  )/RT  44 

C^/r  =2-5  45 

(H°-E°0  )/R  46 


b«  zeros  are  entered  for  all  of  the  functions  when  a 
zero  is  encountered  in  the  temperature  column. 

c.  negative  temperatures  are  not  allowed. 

d.  input  can  come  from  any  column. 

PFATOM  TEMP  IN  $$,  MOLECULAR  WEIGHT  IN  $$,  WAVE  NO 
IN  ++,  G  IN  ++ 

a*  computes  and  stores  automatically  as  indicated  the 
contr ibutat ions  to  the  thermal  functions. 


Storage 

Column 

(T)  temperatures 

41 

-(F°-E°0  )/RT  =  2-5  In  T  +  1- 5  In  M  - 

3- 66495 

0 

+ln  Q 

42 

(  H°  — E j  )/RT  =  2-  5  +  qVq° 

43 

S0/R  =  (H°-E°0  )/RT  -  (F°-E°0  )/RT 

44 

C°/r  =2-5  +  qVq°  -  (qVq°)2 

45 

x— N 

ffi  ' 

o 

& 

O  o 

N 

w 

46 

where 

Q  =  E  g.exp(-hcE./kT) 
i  1  1 
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After  the  numbers  are  entered  in  the  columns  as 
indicated?  the  calculation  is  carried  out  as  before  by 
the  two  instructions 

SIN  1,  3 
COS  2  ,  3 ,  4 

We  address  ourselves  now  to  the  problem  of  how  to 
enter  the  arrangement  of  variables  as  indicated  above. 
The  generation  of  the  required  values  of  *p  is  achieved 
in  instructions 

GENERATE  0- l( 0- l) 1. 0  IN  1 
DUPLICATE  9  TIMES,  ARRAY  IN  1,1,10,1 
START  STORING  IN  11,1 

The  generation  of  the  values  of  cp  presents  a  number  of 
alternatives*  We  discuss  a  few  of  these  to  illustrate 
some  of  the  features  of  the  OMNITAB  commands. 

Method  A  via  repeat  mode: 

RESET  LENGTH  TO  100 

ADD  2-0,  0.,  STORE  IN  1 

BEGIN  STORING  INSTRUCTIONS 

RESET  LENGTH  TO  90 

INDEX  INST  1  BY  “10 

SUB  0. 2,  1,  1 

FINISH  STORING  INST 

REPEAT  INST  1  THRU  3,  9  TIMES 

Method  B  via  matrix  operations: 

READ  1,2,3,4,5,6,7,8,9,10, 

•  2,  *2,  *2,  *2,  *2,  *2,  *2,  *2,  *2,  *2 

•  4,  *4,  *4, *4,  *4,  *4,  *4, *4, «4, *4 

*  6  *6 
.  8 

1.  0 
1.  2 


1.  8 

2*0 . 2-0 

VECMAT  IN  1,1,10,10  INTO  COL  2 

One  advantage  of  using  method  B  is  that  a  third 
variable  could  now  be  handled  using  the  repeat  mode. 
Thus  the  function  of  three  variables 

y  =  at)  sin  9  cos  cp 

could  be  handled  as  follows^ 
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OMMTAB 
GENERATE 
DUPLICAT 
READ  1,2 

. 1  .1  .  1 
.2  .2  .2 
•3  .3  .3 

*  4  ,4  .4 

*  5  .5  .5 

*  6  *6  *6 
•7  .7  .7 
.8  « 8  .8 


10/ 

0.  1(0.1) 
9  TIRES 
3,4, 5,6, 
.1  .1  .1 
.2  .2  .2 
.3  .3  .3 
.4  .4  .4 
.5  .5  .5 
.6  .6  .6 
.7  .7  .7 
•8  .8  .8 


/  64 

.0  IN  40 
ARRAY  IN 

,8,9,10 
. 1  .1  .  1 
.2  .2  .2 
.3  .3  .3 
.4  .4  .4 
.5  .5  .5 
•  6  .6  .6 
.7  .7  .7 
.8  .8  .8 


1,40,10,  BY 

.  1 
.2 
.3 
.4 
.5 
.6 
.7 
.8 


STORE 


1.  1.  1.  1.  1.  1.  1.  1.  1.  1. 

VECMAT  1,1,10,10,  STORE  IN  1  12 

SIN  40,41 
CCS  12,13 
MULT  41,13,  14 

BEGIN  STORING  INSTRUCTIONS 
ACC  0.1  TO  COL  31,  STORE  IN  31  (OMEGA) 


RULT  31,14,21 
INCEX  INST  2  BY  1 


FINISH  STORING  INSTRUCTIONS 
REPEAT  INST  1,3,10  TIMES 
FORMAT  ( 1X,2F5. 1, 5F9.5  ) 

F  PR  I  NT  40, 12,21,22,23,24,25 
F  PR  I  NT  40,12,26,27,  28,29,30 
STOP 


IN  11,40 


The  results  for  this  calculation  are  given  on  the 
following  page* 

We  leave  it  to  the  reader  to  devise  a  set  of 
instructions  for  this  problem  using  the  MTRANS  and 
VECMULT  instructions  without  recourse  to  the  repeat 
mode* 
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PAGE 

1 

CMMTA8 

10/  1/64 

6 

9 

CD  —  *1  03  =  .2 

03  —  *3 

• 

11 

3 

03  =  .5 

0.  1 

0.2 

A  1 

0.1 
0.1 
n  _  i 

0.00993  0.01987 

0.01977  0.03954 

0.02940  0.05881 

^  a  n 

0.0298C 
0.05930 
0.08821 
n-11 624 

0.03973 

0.07907 

0.11762 

0.15499 

C. 04967 
0.09884 
C. 14702 
0.19374 

~  -notiO 

PAGE 

2 

OWN  IT  AB 

1C/1/64 

e 

o.i 

0.2 

0.3 

0.4 

0.5 

0.6 


PAGE 


e 


o.i 

0.2 

0.3 


9 

0.6 

0.6 

0.6 

0.6 

0.6 

0.6 


9 

0.1 

0.1 

0.1 


<0  =  .1 

0.00824 

0.01640 

0.02439 

0.03214 

0.03957 

n  t\  *  -  - 
GMNlTAB 


u)  =  .2 

0.01648 

0.03279 

0.04878 

0.06428 

0.0791^ 


U) 


.6 


0.05960 
0.11861 
0 . 17643 


PAGE 


o  /.  Q 


OMNITAB 


a)  —  .7 

0.06953 
0.13837 
0.20583 
n -  77 123 


w  =  .3 
0.02472 
0.04919 
0.07317 
0.09642 

1C/1/64 

u)  =  .8 


0.07947 

0.15814 

0.23524 

0.3C998 


«  =  .4 

0.03296 
0.06559 
0.09756 
n  -  i  *>«*-' 


03 


.9 


0.08940 

0.17791 

0.26464 

0.34873 

r,  A9633 


U)  =  .5 

0.04120 
0.08198 
0. 1219^ 


jo  —  1  * 

C. 09933 
0. 19768 
0.29404 
C. 38747 
C. 47703 


1C/1/64 


0 

9 

(13  —  .6 

CD  =  .7 

(13  =  .8 

CD  —  « 9 

CD  —  1* 

0.1 

0.6 

0.04944 

0.05768 

0.06592 

0.07416 

C. 08240 

0.2 

0.6 

0.09838 

0.11478 

0.13118 

0.14757 

0.16397 

0.3 

0.6 

0.  14634 

0.17073 

0.19512 

0.21951 

0.24390 

0.4 

0.6 

0.19284 

0.22498 

0.25712 

0.28926 

0.32140 

0.5 

0.6 

0.23741 

0.27698 

0.31655 

0.35612 

0.39569 

0.6 

0.6 

0.27961 

0.32621 

0.37282 

0.41942 

C. 46602 

0.7 

0.6 

0.31902 

0.37219 

0.42536 

0.47853 

0.53170 

0.8 

0.6 

0.35524 

0.41444 

0.47365 

0.53285 

0.59206 

0.9 

0.6 

0.38790 

0.45256 

0.51721 

0.58186 

C. 64651 

1.0 

0.6 

0.41670 

0.48615 

0.55560 

0.62505 

0.69450 

0.1 

0.7 

0.04581 

0.05345 

0.06109 

0.06872 

0.07636 

0.2 

0.7 

0.09117 

0.10637 

0.12156 

0.13676 

0.15195 

0.3 

0.7 

0. 13562 

0.15822 

0.18082 

0.20342 

0.22603 

0.4 

0.7 

0.17871 

0.20849 

0.23827 

0.26806 

0.29784 

0.5 

0.7 

0.22001 

0.25668 

0.29335 

0.33002 

G. 36668 

Figure 

9-1. 

Results 

of  three 

argument 

calculation.  The 

headings  have  been  inserted  by  hand 
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9*5*  Problems  Solved  Via  Operators 


Problem  9  —  1 


A  dramatic  example  of  the  power  of  certain 
operators  is  afforded  by  the  solution  of  a  problem 
arising  in  certain  crystal  calculations  where  it  is 
necessary  to  evaluate  22  functions  of  the  following 
form* 


Ref  No. 

s 

1 

2 

2a  +  a 

2 

2b  +  b2 

11 

2b  +  a2  +  2b2  —  2ab 

14 

2  2 

2c  +  .  5a  +  1.  5c  —  ac 

16 

-2a  +  4d  +  a2  +  4d2  —  4ad 

19 

-a  +  2e  +  f  +  .5a2  +  2e2  +  .5f2  -  2ae 

38 

2c  +  2b2  +  3c2  -  4 be 

41 

2d  +  b2  +  2d2  -  2bd 

44 

-2b  +  4e  +  2b2  +  4e2  +  f2  -  4be  -  2bf 

52 

-b  +  2g  +  h  +  b2+  2g2  +  h2  -  2bg  -bh 

59 

-2b  +  4i  +  b2  +  4i2  -  4bi 

72 

2e  +  1.5c2  +  2e2  +  ,  5f 2  —  2ce  —  cf 

76 

—2c  +  4g  +  3c2  +  4g 2  +  2h2  -  4cg  —  4ch 

85 

-2c  +  1. 5c2 

90 

2f  +  4d2  +  4e2  +  f2  -  8de 

95 

2h  +  2d2  +  2g2  +  h2  -  4dg 

102 

— 4d  +  6j  +  4d2  +  9j2  -  12dj 

105 

-2d  +  2d2 

106 

2f  +  f 2 

107 

4e  -  2f  +  4e2  +  f2  —  4ef 

121 

2h  +  4e 2  +  f2  +  4g2  +  2h2  -  8eg  -  2fh 

141 

-f  +  2e2  +  . 5f 2 
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The  evaluation  of  the  22  functions  for  a  set  of  values 
of  the  10  variables  a,  b*  c  ....  j.  can  be  achieved  in 
OMNITAB  with  only  four  instructions  (exclusive  of  the 
data  input  and  print  instructions) •  To  achieve  this 
brevity  of  commands  it  is  necessary  to  recognize  that 
each  term  of  each  equation  is  a  special  case  of  a 
general  term  having  11  factors*  one  for  the  coefficient 
and  the  others  for  the  10  variables*  each  with  its  own 
exponent.  The  variables  which  are  missing  from  any  term 
would  have  zero  for  an  exponent*  while  those  which  are 
present  would  have  a  suitable  nonzero  exponent* 
Symbolically  the  i  equations  can  be  represented  by 


F.= 

l 


10 


E<*  rr 

j  iJk=l 


xrijk 

Xk 


We  simplify  the  problem  somewhat  by  calculating  each 
term  of  the  entire  set  separately  and  identify  each  term 
with  a  formula  number  which  is  later  used  to  sort  out 
those  belonging  together.  In  this  case  the  terms  can  be 
represented  simply  by 


10 

TT 

k=l 


xrjk 

xk 


* 


where  the  are  the  values  a*  b>  c  ....  j* 
are  10  exponents  for  each  of  the  j  terms  in 

The  problem  is  specified  as  follows: 

a*  by  reading  in  a  matrix  of  12  columns  containing  for 
each  term  an  identification  number  tying  the  term  to  a 
particular  line,  its  coefficient*  and  10  exponents*  ^  * 
representing  the  incidence  of  each  of  the  variables  in 
the  term. 

b.  by  reading  in  a  row  of  values  for  the  10  variables 
=  a*  b,  c  ....  j. 

The  actual  calculations  are  achieved  by: 

a •  duplicating  the  Xfe  row  100  times  and  making  it 
available  on  each  row  of  the  work  sheet. 

b.  raising  each  of  the  values  in  the  X^  matrix  to  its 
corresponding  exponent* 


and  the  r 
the  set- 
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c«  taking  the  product  of  the  11  columns  comprising  the 
resulting  matrix  and  the  vector  of  the  coefficients* 

d.  using  the  identifier  to  coalesce  (add  together)  terms 
belonging  to  the  same  equation. 


The  OMNITAB  instructions  are  as  follows^ 


GMNITAB  PR08LEI*  9  -  1 

READ  19  20  1  2  3  4  5  6  7  8  9  10 

1  •  2 •  1  •  0*  0*  0*  0 •  0 •  0 •  0*  C •  0 •  0 • 
1.  1*  2. 

2  2  0  1 
2  10  2 
11  2  0  1 
11  1  2  0 
11  2  0  2 

11  -2  1  1 


14 

2 

0  0  1 

14 

« 

5  2  0  C 

14 

1 

.5  0  0  2 

14 

- 

110  1 

16 

- 

2  10  0 

16 

4 

0  0  0  1 

16 

1 

2  0  0  0 

16 

4 

0  0  0  2 

16 

- 

4  10  0  1 

19 

- 

110  0  0 

19 

2 

0  0  0  0  1 

19 

1  0  0  0  0  C 

1 

19 

% 

5  2  0  0  0  C 

0 

19 

2 

0  0  0  0  2 

19 

* 

5  0  0  0  0  0 

2 

19 

- 

2  1  0  0  0  1 

0 

38 

2 

0  0  10  0 

38 

2 

0  2  0 

38 

3 

0  0  2 

38 

- 

4  0  11 

41 

2 

0  0  0  1 

41 

2 

0  0  0  2 

41 

1 

0  2  0  0 

41 

- 

2  0  10  1 

44 

- 

2  0  10  0 

44 

4 

0  0  0  0  1 

44 

2 

0  2  0  0  0 

44 

4 

0  0  0  0  2 

44 

1 

0  0  0  0  0  2 

44 

- 

4  0  1  0  0  1 

0 

44 

- 

2  0  1  0  0  0 

1 
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141  -100000100 
141  2  0  0  0  0  2  0 
141  .5  0  0  0  0  0  2 

RE AO  21  22  23  24  25 

0.05616  0.01391  -0.00179  0.00705  0.00362 
READ  26  27  28  29  30 

0.00667  0.00107  0.00011  C. 00193  0.00072 

DUPLICATE  100  TIMES  ROW  1  COL  21  R=1  C=10  START  STORING  IN  ROW  2  COL  21 
ARAISE  ROW  1  CCL  21  R=101  C=10  TO  ROW  1  COL  1  START  STORING  IN  1,21 

PRODUCTS  OF  COLS  20  THRU  30,  STORE  IN  COL  20 

COALESCE  CN  THE  FIRST  COL  THE  MATRIX  IN  1,19,  R  =  101 ,C=2 , STORE  IN  1,32 

NOSUMMARY 

RESET  22 

HEAD  32/  REF  NC. 

HEAD  CCL  33/  S 

PRINT  32  33 
STOP 

*  *  *  RESULTS  *  *  * 


PAGE  1  OMNITAB  PROBLEM  9  -  1 


REF  NO. 

S 

1 • 000000  E 

00 

1.  1 54739E-0 1 

2 • OOOOOOE 

00 

2  •  80 1 349E-02 

1. 1C0000E 

01 

2. 979855E-02 

1.400000E 

01 

—  1 . 897694E-03 

1 . 600000E 

01 

-8 . 2  35096E-02 

1. 900000E 

01 

—4 .103117 E-02 

3. 800000E 

01 

-3.C83816E-03 

4. 100000E 

01 

1.4  19676E-02 

4. 400000E 

01 

-1.3  24309E-02 

5.200000E 

01 

-1.  149551E-02 

5 • 900000E 

01 

- 1 . 999900  E-02 

7. 200000E 

01 

7.318  159E-03 

7 . 600000E 

01 

7 . 882665E-03 

8. 500000E 

01 

3 • 584806E-03 

9. OOOOOOE 

01 

1.343155 E-02 

9. 500000E 

01 

2.9 15329E-04 

1. 020000E 

02 

-2 . 3  73744E-02 

1.050000E 

02 

- 1 . 400060  E-02 

1 . 060000  E 

02 

1. 338449E-02 

1.070000E 

02 

1. 140326E-03 

1.210000E 

02 

2 . 890557E-04 

1.41000QE 

02 

-6 .62 1 547E-03 
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Problem  9 


2 


Compute 
hydrogen  from 

tables  of  compressibility  factors  for 
the  relations* 

Z  = 

1  +  B 

+  [  (  l/  2 )  B  +  C]p2  +  [  (  l/  6 )  B 3  +  BC  J  p  3 

+[  (  l/ 24)  B4  +  ( l/ 2)  C2  +  (l/2)B2cJp4  . 

where 

B  = 

0*0055478  T  1^4-0*  036877T  3^4-0.  22004T  5// 4 

and 

C  = 

0*004788  T_3//2  -  0*04053  T~2 

for 

T  = 

21 0°  (  1 0°  )  6 00°  K 

and 

P  = 

100(  100)  500  Amagats* 

The  OMNITAB  instructions  are  as  follows* 


9-2  COMPRESSIBILITY  FACTORS  FOR  HYDROGEN 


C MM  TAB  PROBLEM 
NOSUMMARY 

GENERATE  2 10 . ( 10. ) 600.  IN  1 
RAISE  1  TO  -.25  .0055478  ,2 
RAISE  1  -.75  -.036877  2 
RAISE  1  -1.25  -0.22004  2 
RAISE  1  -1.5  .004788  3 
RAISE  1  -2.  -0.04053  3 
READ  11  12  13  14  15 
IOC.  ,200., 300., 400. ,  500. 

DUPLICATE  49  1  11  1  5  INTO  2  11 
ACC  0.  1.  41 
ADC  0.  2  42 
ACC  3  0.  43 

MULT  2  BY  2  BY  .5  43 

MULT  2  BY  3  44 
RAISE  2  TO  3. 

MULT  .534 
MULT  3  BY  4  45 
RAISE  2  TO  4.  POWER 
MULT  2  2  4  45 
ACC  1.  0.  20 
BEGIN 

EXPAND  COL  11  TO  4TH  POWER 
INCREMENT  1  BY  1  0  0  0 
AMULT  1  20  50  5  BY  1  41  1  26 

ROWSUM  COLS  26  27  28  29  30  STORE  31 
4  BY  1 


POWER  MULT  BY  .16666666  ADD  TO  44 


MULT  BY  .04166667  ADD  45 


IN  STEPS  OF  1  START  STORING  IN  21 


5  5 
1/ 


INCEX 
FINISH 
REPEAT  1 
HEAD  CCL 
HEAD  31/ 

HEAD 
HEAD 
HEAD 
HEAD 
FIXED  5 
PRINT  1  31  32 
STOP 


32/ 

33/ 

34/ 

35/ 


T 

100. 

200. 

300. 

400. 

500. 

33  34  35  1 
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Problem  9-3 


Compute  the  log  Y  from  the  formula  given  in 
problem  6—8  using  operators* 


The  OMNITAB  instructions  are  as  follows* 


GMNITAB  PROBLEM  9-3 
NOSUMMARY 

GENERATE  1.  1.  20.  IN  2 
DIVIDE  1.  BY  2  STORE  3 
SET  IN  COL  4 

1.  -1.  I  -1.  1  -1.  1  -1.  1  -1.  1  -1.  1  -I.  1  -1.  I  -1.  1  -1. 
MULTIPLY  434 

INSERT  IN  4  FROM  2  EVERY  2ND  ROW  STARTING  AS  2ND  ROW  STORE  5 
PRINT  245 

GENERATE  .01  .01  0.5  IN  2 
ADC  l.t  2,  1 

FORMULA  1,  X  IN  2,  PARAMETERS  FOR  20  TERMS  IN  5,  STORE  6 
LOGE  1  7 
PRINT  2567 
STOP 


We  leave  it  as  an  exercise  for  the  reader  to 
devise  other  schemes  for  generating  the  coefficients  and 
their  powers* 
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Problem  9 


4 


Compute  the  thermodynamic  properties  for  the 
proton  and  for  the  hydrogen  atom,  given  a  set  of  energy 
levels  and  their  statistical  weights  for  the  atom. 


The  OMNITAB  instructions  are  as  follows! 


OMNITAB  PROBLEM  9-4 

NOSUMMARY 

SET  10 

CEC  040,0,, 2., 822 59., 8., 97492., 18, 

EEC  102823., 32. , 1 0529 1 . 05 , 50 . , 1 06632 . , 72 . 

DEC  107440.432,98., 107965.039, 1 28 . , 1 08324. 7 1 0 , 162 . 

CEC  108581.979, 200 ., 108772 . 329 , 242. , 108917.109,288. 

CEC  109029.779,338., 109119. 180,392. , 109191.300,450. 

CEC  109  2  50.329,512.,  109299.2  50,5  78.,  109340.2  50,64  8. 

CEC  109374.939, 722. , 109404.569, 800. , 109430.060,882. 

CEC  109  4  52. 149,96  8.,  109471.428,  1058 ., 109488. 346 , 1 152 . 

CEC  109503.273,1250., 109516.513,1352., 109528.309,1458. 

CEC  109538.862,1568., 109548.345, 1682. ,109556. 894, 1800. 

CtC  109564.629, 1922., 109 57 1 . 650 , 2048 . , 109578.044,2178. 

CEC  109583.881, 2312. , 1095 89 . 225 , 2450 ., 1 09594. 1 30 , 2592. 

CEC  109598.643,2738., 109602.804,2888. ,109606.648,3042. 

CEC  109610.210,3200. 

SEPARATE  IN  10  EVERY  2ND  ROW  STARTING  WITH  THE  2ND  ROW  STORE  IN  11 
SEPARATE  IN  10  EVERY  2ND  ROW  STARTING  WITH  THE  3RD  ROW  STORE  IN  12 
GENERATE  100.  100.  10000.  IN  3 
PFTRANS  3  1.0C80 

PRINT  41  42  43  44  45  46 

PFATCM  TEMP  IN  3,M0LWT  IS  1.0080  FREQUENCES  IN  11,  G  IN  12 
PRINT  41  42  43  44  45  46 
STOP 


The  SEPARATE  instructions  are  used  because  PFATOM 
calls  for  the  energy  levels  and  their  statistical 
weights  in  separate  columns  and  the  data  had  been 
previously  punched  in  the  form  n,  Ej  ,  gj ,  E2  ,  g2 >  E3 , 
g3  • . •  The  special  program,  for  which  these  data 
represent  the  input,  required  a  notification  of  the 
number  of  energy  levels  to  be  used  (here  n=40)  •  This  is 
not  necessary  in  OMNITAB*  The  DEC  required  by  the 
special  program  is  ignored  in  the  OMNITAB  scan  of  the 
data* 
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Problem  9  —  5 


CMMTAB  PROBLEM  9-5 

TITL61  CALCULATION  OF  EINSTEIN  FUNCTIONS  USING  THE 
TITLE2  OPERATOR  INSTRUCTION 

NOSUPWARY 

GENERATE  1. 01(. 01)1. 5  IN  COL  1 
ADC  0.  TO  1*43879  STORE  IN  COL  2 
EINSTEIN  TEKP  IN  2,  FREQUENCY  IN  I 
FIXEC  5 
HEAD  CCL  1/  X 

HEAD  CCL  42/  -G 

HEAD  CCL  43/  H 

HEAD  CCL  44/  S 

HEAD  CCL  45/  CSUBP 
PRINT  1,42,43,44,45 
STOP 


The  results  from  the  above  are  identical  with 
those  given  for  problem  3—1  in  section  3*9*  Normally  the 
instruction  EINSTEIN  carries  out  the  calculation  for 
pairs  of  temperatures  and  frequencies,  rather  than  for 
the  single  valued  argument  x  =  hcE/kT.  The  instruction 
ADD  0*  TO  1.43879  STORE  IN  COL  2  was  introduced  above  in 
order  to  reproduce  the  results  of  problem  3—1. 
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10.  FUNDAMENTAL  PHYSICAL  CONSTANTS 


Until  now  it  has  been  emphasized  that  the  OMNITAB 
program  scans  each  card  and  extracts  from  it  the  first 
word  and  the  integers  or  numbers  on  the  card  —  ignoring 
the  intervening  words.  Actually  the  scan  routine  can 
extract  more  than  the  first  word  from  the  card,  provided 
that  the  other  word  is  preceded  by  an  asterisk  *  and 
followed  by  an  asterisk. 

The  purpose  of  this  provision  is  to  enable  the 
inclusion  in  the  program  of  certain  fundamental  physical 
constants,  so  that  the  user  need  only  ask  for  them  by 
name.  Thus  the  quotient  h/ k  (h  =  Plane ks  Constant, 
6.  6256E—34;  k=Boltzman  constant  =  1.  38054E— 23)  can  be 
obtained  by  the  following  OMNITAB  instruct ion: 

DIVIDE  * PLANCK*  BY  *BOLTZMAN*,  STORE  IN  COL  2 

This  provision  enables  the  user  to  employ  an  up- 
to-date  set  of  constants  for  his  calculation  simply  by 
calling  for  them  by  name.  It  is,  however,  necessary  to 
become  familiar  with  the  OMNITAB  acronyms  for  the 
various  constants.  The  acronyms  are  given  below  for  the 
fundamental  constants  and  for  certain  conversion  factors 
given  in  Tables  2  and  3  of  the  recent  NBS  release 
entitled  nNew  Values  for  the  Physical  Constant  •  11  (NBS 
Technical  News  Bulletin,  Vol  47,  October  1963.) 

Unless  otherwise  specified  the  program  will  use  the 
constants  in  the  MKSA  system.  If  CGS  units  are  desired, 
they  can  be  had  by  using  the  instruction  CGS  prior  to 
asking  for  a  constant.  These  units  will  be  supplied  in 
the  system  until  the  end  of  the  problem  or  until  the 
command  MKSA  is  introduced.  The  use  of  either  of  these 
instructions  will  provide  a  one  page  printout  (See 
section  10.2)  of  the  above  cited  physical  constants 
unless  such  a  listing  has  been  suppressed  by  the 
NOSUMMARY  instruction. 

Because  the  program  sees  only  the  first  six 
characters,  it  will  accept  as  legal  such  words  as 
*AVOGADRO*>  * THOMSON**  *BOHRADIUS*,  *BOLTZMAN*,  etc. 


218 


10* !•  Acronyms  for  the  Physical  Constants 


*SOLIVA* 

*ELECHA* 

*AVOGAD* 

*ELECMA* 

*PROMAS* 

*NEUMAS* 

*FARADA* 

*PLANCK* 

*FISTCO* 

*E0VERM* 

*HOVERE* 
*C0WAEL* 
* COW APR* 
*RYDBER* 
* BOHR AD* 
*ELECRA* 
*THOMSO* 
*gy/ MAP* 
*BOHRMA* 
*NUCMAG* 


Speed  of  Light  in  Vacuum 

Elementary  Charge 

Avagadro  Constant 

Electron  Rest  Mass 

Proton  Rest  Mass 

Neutron  Rest  Mass 

Faraday  Constant 

Planck  Constant 

Fine  Structure  Constant 

Charge  to  Mass  Ratio  For  Electron 

Quantum-Charge  Ratio 

Compton  Wavelength  of  Electron 

Compton  Wavelength  of  Proton 

Rydberg  Constant 

Bohr  Radius 

Electron  Radius 

Thomson  Cross  Section 

Gyromagnetic  Ratio  of  Proton 

Bohr  Magneton 

Nuclear  Magneton 


*PROMOM*  Proton  Moment 

*ZEEMAN*  Zeeman  Splitting  Constant 

*Rj/KMO*  Gas  Constant  R  in  J  K*”1mole“1 

*RC/KMO*  Gas  Constant  R  in  Calories  K  1  mole 

*VSUBZE*  Normal  Volume  Perfect  Gas 

*BOLTZM*  Boltzmann  Constant 

*CONE*  First  Radiation  Constant 

*CTWO*  Second  Radiation  Constant 

*WIEN*  Wien  Displacement  Constant 

*STEFBO*  Stef an-Boltzmann  Constant 

*GRAVCO*  Gravitational  Constant 


10«  2»  Acronyms  for  Energy  Conversion  Factors 


*  j/  EV* 

*EV/ U* 

Electron-Volt 

Energy  Associated  with 
Unified  Atomic  Mass  Unit 

*EV/ PRO* 

Proton  Mass 

*EV/ NEU* 

Neutron  Mass 

*EV/ ELE* 

Electron  Mass 

*hz/ev* 

Cycle 

*WAVELE* 

Wavelength 

*WAVENO* 

Wave  Number 

*k/ev* 

K 
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10. 3*  New  Values  for  the  Physical  Constants 


TABLE  OF  GENERAL  PHYSICAL  CCNSTANTS 


CMNITAB 

EST. 

ERROR 

( MKS  A ) 

(CGS) 

NAME 

CONSTANT  NAME 

LIMIT 

VALUE 

VALUE 

( SOL  I V  A ) 

SPEED  OF  LIGHT  IN  VACUUM 

3 

2. 9979250E  08 

2.9979250E  10 

(ELECHA) 

ELEMENTARY  CHARGE 

7 

l  . 602 1000E- 19 

1. 6021000 E- 20 

( AVOGAD) 

AVAGADRO  CONSTANT 

28 

6.0225199E  23 

6.0225  199E  23 

( ELECMA) 

ELECTRON  REST  MASS 

4 

9. 1090999E— 31 

9. 1091000E-28 

( PROMAS ) 

PROTON  REST  MASS 

8 

1 . 6725200E-27 

1.6725200E-24 

(NEUMAS ) 

NEUTRON  REST  MASS 

8 

1.6748200E— 27 

1 . 6 748 200 E— 24 

( FARADA ) 

FARADAY  CONSTANT 

16 

9.6487000E  04 

9.6486999E  03 

(PLANCK) 

PLANCK  CONSTANT 

5 

6.6255999E-34 

6 . 62 55999 E— 27 

(FISTCO) 

FINE  STRUCTURE  CONSTANT 

10 

7 . 2 97 2 0 00 E— 03 

7. 2972 00 OE— 03 

( EOVERM ) 

CHARGE  TO  MASS  RATIO  FOR  ELECTRON 

19 

1 • 7587960E  11 

1.7 5 87960E  07 

(HOVERE) 

QUANTUM-CHARGE  RATIO 

12 

4 .  1 355600  E-  15 

4. 1355599E— 07 

( COW AEL ) 

COMPTON  WAVELENGTH  OF  ELECTRON 

6 

2.4262100E-12 

2.4262 100E— 10 

(COWAPR) 

CCMPTON  WAVELENGTH  OF  PROTON 

4 

1.3214000E-15 

1 • 32 14000E— 1 3 

(RYDBER) 

RYDBERG  CONSTANT 

3 

1.0973730E  07 

1.0973731E  05 

( BOHRAD ) 

BOHR  RADIUS 

7 

5 . 2916700E-1 1 

5. 2916699 E— 09 

(ELECRA) 

ELECTRON  RADIUS 

11 

2 . 8 177700E-15 

2. 8 177700E— 1 3 

{ THOMSO ) 

THOMSON  CROSS  SECTION 

5 

6 . 65 15999 E— 29 

6 . 65 15 999 E— 25 

(GY/MAP) 

GYROMAGNETIC  RATIO  OF  PROTON 

2 

2.6751900E  08 

2.6751900E  04 

(BOHRMA) 

BOHR  MAGNETON 

6 

9. 2 73 1 9 99 E— 24 

9.27  3 1999E— 2 1 

(NUCMAG) 

NUCLEAR  MAGNETON 

4 

5.0505000E-27 

5. 0 5 04 99 9 E— 24 

( PROMOM) 

PROTON  MOMENT 

13 

1 . 4 104900 E— 26 

1 .4 104900E— 23 

(ZEEMAN ) 

ZEEMAN  SPLITTING  CONSTANT 

4 

4.6685799E  01 

4. 6685799 E— 05 

(RJ/KMO) 

GAS  CONSTANT (RJ/M OLE) 

12 

8 . 3 142999E  00 

8.31 42999E  07 

( RC/KMO ) 

GAS  CONSTANT(RC/MOLE) 

1.9871700E  00 

1.9871700E  00 

( VSUBZE ) 

NORMAL  VOLUME  PERFECT  GAS 

30 

2. 2413599E— 02 

2. 24 1 3600E  04 

( BOLTZM ) 

BOLTZMANN  CONSTANT 

18 

1.3805400E— 23 

1.3805400E— 16 

(CONE  ) 

FIRST  RADIATION  CONSTANT 

3 

3 . 740 5 0 00 E- 16 

3 . 740499 9E— 05 

( CTWO  ) 

SECOND  RADIATION  CONSTANT 

19 

1.4387900E— 02 

1.4387900E  00 

(WIEN  ) 

WEIN  DISPLACEMENT  CONSTANT 

4 

2.8978000E— 03 

2.8978000E— 01 

( STEFBO ) 

STEFAN-BOLTZMANN  CONSTANT 

29 

5 . 6696 9 99 E— 08 

5.6697  OOOE— 05 

( GRAVCO ) 

GRAVITATIONAL  CONSTANT 

15 

6 . 6700000E— 1 1 

6 . 6 6 99 999 E— 08 

(J/EV  ) 

ELECTRON-VOLT 

7 

1.6021000E-19 

1.6021 OOOE- 12 

ENERGY  ASSOCIATED  WITH 

(EV/U  )  UNIFIED  ATOMIC  MASS  UNIT 

15 

9.3 147800E  08 

9.3 147800E  08 

( EV/PRO) 

PROTON  MASS 

15 

9 . 3825600E  08 

9. 3825600E  08 

( EV/NEU ) 

NEUTRON  MASS 

15 

9. 3954999E  08 

9. 3954999E  08 

(EV/ELE) 

ELECTRON  MASS 

5 

5.1 100600E  05 

5.1 100600E  05 

(HZ/E V  ) 

CYCLE 

7 

2 .41 80400E  14 

2.4180400E  14 

(WAVELE) 

WAVELENGTH 

4 

1 . 2398 100E-06 

1. 2398 100E— 04 

(WAVENO) 

WAVE  NUMBER 

23 

8 . 065 7300E  05 

8.0657300E  03 

(K/EV  ) 

K 

16 

1. 1604900E  04 

1 . 1604900E  04 
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Problem  10 


1 


Compute  the  values  of  the  thermodynamic  constant 
stated  below  in  units  of  calories  mole  1  degree  K  1  from 
the  Physical  Constants  stored  in  OMNITAB. 


K  =  R  log 


64(  10  24)fr5  k4 


e  N3  h6  P 


1  atm 


P1  atm  =  1*  01325.  106  && 

cm 


The  OMNITAB  instructions  are  as  follows^ 


0MNITA8  PRGBLEM  10  -  I 

NGSUMMARY 

CGS 

RESET  1 

MULT  *AV0GACR0*  BY  *PLANCK*  ,  STORE  1 
MULT  CCL  1  BY  1  BY  I  AOC  TO  2 

DIVICE  *BCLTZMAN*  BY  *PLANCK*  MULT  BY  *BOLTZMAN*  ADD  TO  3 
DIVIDE  3  BY  *PL ANCK*  ,  MULT  BY  64.E-24  ADD  TO  4 

RAISE  3 • 14159267  TO  5.  ,  MULT  4  ADD  TO  5 
DIVIDE  5  BY  2  MULT  BY  3  ADD  TO  6 
DIVICE  6  BY  1*0 1 325E6  STORE  6 
LOGE  6  MULT  BY  *RC/KM0*  ADD  TO  7 
PRINT  6  7 
STOP 

*  *  *  RESULTS  *  *  * 

PAGE  1  OMNITAB  PROBLEM  10  -  1 


COLUMN  6  COLUMN  7 

3*7994678—04  -1.564992E  01 


Note  that  the  powers  of  k>  h>  and  N  were  not 
computed  directly  as  they  would  have  exceeded  the 
machine . range  of  10E+38  • 
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11.  DOCUMENTATION  OF  AND  WITH  OMNITAB 


One  of  the  recent  trends  in  the  documentation  of 
computer  programming  systems  has  been  toward  so  called 
self —documentation.  We  mean  by  this  that  the  program 
carried  its  own  full  description.  A  notable  example  of 
this  is  the  MAD°  system  developed  at  the  University  of 
Michigan.  It  is  our  understanding  that  the  tape 
containing  the  system  carries  also  the  manual  for  its 
operation  and  use. 

An  extension  of  this  development  is  to  put  into  the 
hands  of  the  user  a  facility  to  mix  text  with 
computation  so  as  that  the  computer  output  may  be  a 
final  document  containing  both  text  and  results*  Such  a 
useful  system  has  recent 1^q been  provided  for  programmers 
by  a  program  called  MOIST  °  developed  at  the  University 
of  Maryland. 

OMNITAB  has  both  of  the  features  discussed  above* 
The  documentation  of  the  program  is  in  two  main  parts* 
First,  there  is  the  word  COMMANDS  which  results  in  an 
automatic  printout  of  the  command  structure  (the 
vocabulary  and  sentence  structure)  of  section  2*  2  of 
this  Handbook.  The  other  is  an  abridgment  of  section  3* 1 
through  3*8,  5-1,  6*1,  7*1,  8*1,  9*1,  9*3  wherein  the 
commands  are  defined.  This  16  page  text  results  from  the 
use  of  the  word  MANUAL.  In  addition,  provision  has  been 
made  to  respond  to  the  instruction  WATSNU  by  supplying  a 
brief  account  of  the  changes  and  additions  to  the 
program  since  the  latest  edition  of  this  Handbook. 
Figures  11—1  and  11—2  illustrate  the  type  of  information 
which  the  program  supplies  in  response  to  the  words 
COMMANDS  and  MANUAL. 


Arden,  B.  W. ,  Galler,  B.  A. ,  and  Graham,  R*  M* ,  MAD  at 
Michigan,  Datamation,  Dec-  1961* 

Berne,  G.  M* ,  MOIST:  Macro  Output  Input  System  for 
the  IBM  7090  Technical  Report  TR— 64— 5,  University  of 
Maryland  Computer  Science  Center  (Jan*  1964)* 
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OUTPUT  INSTRUCTIONS 


NOTE' ' 

FOOTNOTE"  '  ' 


(AS  /APPROPRIATE) 
(AS  APPROPRIATE) 


TITLE1* 

(66 

CHARACTERS 

IF 

REQU 

IRED 

TITLE2' 

(66 

CHARACTERS 

IF 

REQU 

IRED 

TITLE3* 

(53 

CHARACTERS 

IF 

REOU 

IRED 

TITLE4' 

(53 

CHARACTERS 

IF 

REQU 

IRED 

FIXED  WITH 

*  * 

DECIMALS 

FLOATING  W 

ITH 

,,  DECIMALS 

NOSUMMARY 

( 

SUPPRESSES 

SUMMARY 

) 

SUMMARIZE  (RESTORES  SUMMARY) 

FORMAT  (AS  DESIRED  ACCORDING  WITH  FORTRAN  RULES) 

PRINT  COL  ++,++,++, ETC  (8  COL  LIMIT) 

FPRINT  CCL  44,44,44, ETC  (AS  ALLOWED  BY  FORMAT) 

TPRINT  COL  44,44,44,44  ....  (AS  ALLOWED  BY  FORMAT  BUT  DOES  NOT  PAGE) 
PUNCH  COL  44, 44,44,44  (4  COL  LIMIT) 


F PUNCH  CCL  ++,++,+4 


(AS  ALLOWED  BY  FORMAT) 


PLOT  COLS  44,44,44,  AGAINST  44  (5  COL  LIMIT) 


Figure  11— 1.  A  portion  of  the  printout  from  the 
COMMAND  instruction. 


1.  PRINT  COL  44,44,44,.... (8  COL  LIMIT). 

A.  *  NR M AX '  VALUES  IN  THE  SPECIFIED  COLUMNS  ARE  PRINTED  FIXED 
OR  FLOATING  POINT  DEPENDING  ON  2  OR  3  BELOW. 

B.  TITLES  AND  COLUMN  HEADING  ARE  ALSO  PRINTED., 

C.  WHEN  NO  VALUES  WERE  ENTERED  IN  A  COLUMN  OR  A  PORTION  OF  IT, 
ZEROS  WILL  BE  PRINTED. 

2.  FIXED  WITH  ,,  DECIMALS 

A.  PROVIDES  FIXED  FIELD  FORMAT  WITH  THE  SPECIFIED  DECIMAL  PLACES. 

B.  MAXIMUM  DECIMAL  FIELD  IS  7. 

3.  FLOATING  WITH  ,,  DECIMALS 

A.  PROVIDES  FLOATING  FIELD  FORMAT  (NORMAL)  WITH  THE  SPECIFIED 
NUMBER  OF  DECIMAL  PLACES. 

B.  MAXIMUM  DECIMAL  FIELD  IS  7. 

4.  PUNCh  COL  44,44,44,(4  COL  LIMIT) 

A.  PROVIDES  ' NRM AX '  CARD  OUTPUT  IN  ACCORD  WITH  THE  BUILT-IN 
'FORMAT' . 

B.  PUNCHING  IS  LIMITED  TO  60  CHARACTERS  INCLUDING  SPACES. 

5.  PLOT  COLS  44,44,44, AGAINST  COL  44 

A.  PLOTS  OF  ONE  TO  FIVE  FUNCTIONS  ARE  PROVIDED. 

B.  THE  FIVE  SYMBOLS  USED  ARE  .  4  *  ,  0 

Figure  11—2.  A  portion  of  the  printout  from  the  MANUAL 
instruction. 
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11. 1.  Report  Writing  via  OMNITAB 


Provision  has  been  made  in  the  program  to 
accommodate  textual  material  via  the  use  of  the 
instructions  NOTE  (and  certain  synonyms),  FOOTNOTE, 
SPACE,  NEWPAGE,  PAGE,  APRINT,  and  TPRINT*  These 
instructions  make  it  possible  for  the  user  to  have 
considerable  flexibility  in  formating,  and  mixing  the 
text  with  computed  results  and,  in  fact,  mixing  text 
writing  interchangeably  with  computation.  In  the  pages 
following,  we  give  examples  illustrative  of  the  results 
which  can  be  achieved  in  this  way*  The  arrangement  of 
the  instruction  cards  follow  the  results* 

Experience  with  handling  many  small  pieces  of  data, 
especially  those  culled  from  the  scientific  literature, 
pointed  up  the  need  for  a  system  of  identification  — 
authors,  journal,  title,  subject  headings,  table  units, 
etc.  —  which  would  make  the  data  self  explanatory. 
Furthermore,  we  consider  it  important  that  the  program 
which  carries  out  computations  on  these  data  be  able  to 
handle  the  entire  pack-text,  notes,  titles,  etc.  -  in  an 
intelligent  way.  By  intelligent  we  mean  having  the 
ability  to  differentiate  between  data  and  bibliographic 
or  editorial  comment.  Furthermore,  it  should  not  ignore 
the  bibliographic  information  completely  but  should 
rather  print  the  information  out  as  a  preamble  to  the 
calculations,  either  with  or  without  any  ad  hoc  comments 
which  the  user  may  see  fit  to  make  in  the  course  of  the 
calculations. 

In  order  to  achieve  this  seemingly  large,  order  it 
was  necessary  to  do  two  things*  First,  to  adopt  a  simple 
code  to  identify  the  various  non-data  cards  and  secondly 
to  introduce  this  list  of  code  words  as  synonyms  for  the 
word  NOTE.  Thus,  any  card  read  into  OMNITAB  which  has 
the  following  words  starting  in  column  1  of  the  card 
will  be  treated  as  a  NOTE  card: 


su 

for 

subject 

PRO 

for 

property 

AUT 

for 

author 

TIT 

for 

title 

JOU 

for 

journal 

CAP 

for 

caption 

HEA 

for 

heading 

COM 

for 

comment 

IND 

for 

index 

225 


Problem  11  —  1 


The  material  below  shows  the  result  of  reading  in  a 
portion  of  a  data  file  for  hydrogen  and  printing  the 
data  immediately  below  certain  statements  via  the 
TPEINT  instruction.  How  this  is  achieved  is  indicated  on 
the  two  pages  following • 


PAGE  1  OMNI  TAB  DATA  FILE  OF  H2  AND  02 

HYDROGEN , DEUTERIUM 

P,PVT,RF0 

MICHELS  ,  DE  GR A AFF , WASS EN A AR ,L EVELT, LOUWERE 

COMPRESS  1 8 1 L ITY  ISOTHERMS  OF  HYDROGEN  AND  DEUTERIUM  AT  TEMPERATURE 
BETWEEN- 1 75  C  ANC  +150  C(AT  DENSITIES  UP  TO  960  AMAGAT) 

PHYSICA  25,25,1959 
TA8LE  1 

T , P , PV ,  AMAGAT 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25.00000 
-25. 


1.00000 
2.00000 
23.00000 
3.00000 
4.00000 
5.0C000 
6.0C000 
7 .00000 
8.CC000 
9.0C000 
10.00000 
11.00000 
12.00000 
13.00000 
14.00000 
15.00000 
16.00000 


7.17550 
9.31740 
11.00250 
13.13280 
16.91820 
22.05850 
28.48020 
35.87870 
48.18070 
67.25160 
88.66680 
123.45700 
153.26480 
186.62280 
235.15570 
281 


0.91215 

0.91327 

0.91439 

0.91546 

0.91788 

0.92089 

0.92472 

0.92933 

0.93690 

0.94898 

0.96276 

0.98554 

1.00566 

1.02854 


7.86660 
10.20220 
12.03260 
14.34550 
18.43180 
23.95360 
30.79860 
38.60720 
51.42590 
7C. 86720 
92.09630 
125.26810 
152.402- 


000 
-75.00000 
-75.00000 
-75.00000 
-75.00000 
-75.00000 
COMPARISON 


IS 


0000 
18.CC000 
19.00000 
20.00000 
21.00000 
22.00000 
13.00000 
MADE  WITH 


782700 
340.08700 
409.10870 
488.10520 
570.92799 
681.21940 
814.64359 
149.44000 
NBS  RP1932 


.86220 

0.89295 

0.94557 

0.99681 

1.05596 

1.11819 

1.20074 

1.29950 

0.81138 


"4. 59890 
260.35430 
299.93510 
359.66350 
410. 41790 
462.23830 
51C. 58230 
567.33299 
626. 89000 
6792.00000 


SMOCTHEC  TABLES  ARE  GIVEN  OF  PV  AT  INTEGRAL  VALUES  OF  RHO  AND  P 
COEFFICIENTS  ARE  GIVEN  OF  DENSITY  EXPANSION  OF  PV  ISOTHERMS 
LEVELT  IS  NCW  SENGERS-LEVELT 

THE  FOLLOWING  WORDS  OR  PHRASES  ARE  INDEXING  OR  DESCRIPTOR  TERMS. 


DEUTERIUM 

GAS 

HIGH  PRESSURE 
LCW  TEMPERATURE 
MEDIUM  TEMPERATURE 
EXPERIMENTAL 

VAN  DER  WAALS  LABORATORY 
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The  OMNITAB  instructions  are  as  follows 


CMMTAB  CATA  FILE  OF  F2  AND  D2 

FORMAT  (8F12.5) 

NEh  PAGE 

SU  HYDROGEN, DEUTERIUM 
PRC  P , P VT , RHC 

AUT  MICHELS, CE  GR A AF F , W ASS EN A AR , L EVEL T , LOUWERE 

TIT  COMPRESSIBILITY  ISOTHERMS  OF  HYDROGEN  AND  DEUTERIUM  AT  TEMPERATURE 
TIT  BETWEEN-I75  C  AND  +150  C(AT  DENSITIES  UP  TO  960  AMAGAT) 

JOU  PHYSICA  25,25,1959 


CAP 

TABLE 

1 

HEA 

T,P,PV 

,  AMAGAT 

READ 

1,2, 3, A 

,5 

D 

-25. C 

1 

7.1755  0.91215  7 

.8666 

D 

-25. C 

2 

9.3174  0.91327  10.2022 

D 

-25. C 

23 

11.0025  0.91439 

12.0326 

D 

-25. C 

3 

13.1328  0.91546 

14.3455 

D 

-25. C 

4 

16.9182  0.91788  18.4318 

D 

-25. C 

5 

22.0585  0.92089 

23.9536 

D 

-25. C 

6 

28.4802  0.92472 

30. 7986 

D 

-25. C 

7 

35.8787  0.92933 

38.6072 

D 

-25. C 

8 

48.1807  0.93690 

51.4259 

D 

-25. C 

9 

67.2516  0.94898 

70.8672 

D 

-25. C 

10 

88.6668  0.96276 

92.0963 

D 

-25. C 

11 

123.4570  0.98554 

125.2681 

D 

-25. C 

12 

153.2648  1.00566 

152.4028 

D 

-25. C 

13 

186.6228  1.02854 

181.4440 

C 

-25. C 

14 

235.1557  1.06264 

221.2947 

D 

-25. C 

15 

281.0142  1.09529 

256. 5660 

D 

-25. C 

16 

335.4776  1.13478 

295.6312 

C 

-25. C 

17 

425.9170  1.20102 

354.6306 

D 

-25. C 

18 

511.8284  1.26433 

404. 823  1 

D 

-25. C 

19 

609.5024  1.33626 

456.  1253 

D 

-25. C 

20 

711.1191  1.41C84 

504.0413 

D 

-25. C 

21 

845.1927  1.50832 

560.3550 

D 

-25. C 

22 

1005.6475  1.62324  619.531i 

D 

-75. C 

1 

5.8140  0.72781  7 

.9883 

D 

-75. C 

2 

7.5491  0.72872  10.3594 

D 

-75. C 

23 

8.9114  0.72940 

12.2174 

D 

-75. C 

3 

10.6370  0.73021 

14.5671 

D 

-75. C 

4 

13.6951  0.73171 

18.7165 

D 

-75. C 

5 

17.8486  0.73379 

24.3239 

C 

-75. C 

6 

23.0308  0.7364C 

31.2749 

D 

-75. C 

7 

28.9941  0.73957 

39.2040 

D 

-75  .C 

8 

38.8960  0.74484 

52.2206 

D 

-75. C 

9 

54.2029  0.75330 

71.9540 

D 

-75. C 

1C 

71.3544  0.763C8 

93.5084 

D 

-75. C 

11 

99.1456  0.77959 

127.1766 

D 

-75. C 

12 

122.9006  0.79437 

154.7145 

D 

-75. C 

14 

188.0162  0.83712 

224. 5989 

D 

-75. C 

15 

224.4775  0.86220 

260.3543 
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Problem  11—1  continued 


D 

-75. C 

16 

267.8270 

0.89295 

299.9351 

D 

-75. C 

17 

340.0870 

0.94557 

359.6635 

D 

-75. C 

18 

409.1087 

0.99681 

410.4179 

D 

-75. C 

19 

488.1052 

1.05596 

462.2383 

D 

-75. C 

20 

570.9280 

1.11819 

510.5823 

D 

-75. C 

21 

681.2194 

1.20074 

567.3330 

D 

-75. C 

22 

814.6436 

1.29950 

626.8900 

D 

-75. C 

13 

149.4400 

0.81138 

1841800 

T  PR  I  NT  1  2  3  4  5 

COP  A  COMPARISON  IS  MADE  WITH  NBS  RP1932 

COP  SMOOTHED  TABLES  ARE  GIVEN  OF  PV  AT  INTEGRAL 

COP  COEFFICIENTS  ARE  GIVEN  OF  DENSITY  EXPANSION 

COP  LEVELT  IS  NOW  SENGERS-LEVELT 

COP 

COP  THE  FOLLOWING  WORDS  OR  PHRASES  ARE  INDEXING 
COP 

INC  DEUTERIUM 

INC  GAS 

INC  HIGH  PRESSURE 

INC  LOW  TEMPERATURE 

INC  MEDIUM  TEMPERATURE 
INC  EXPERIMENTAL 

IND  VAN  DER  WAALS  LABORATORY 
STOP 


VALUES  OF  RHO  AND  P 
OF  PV  ISOTHERMS 

OR  DESCRIPTOR  TERMS. 
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Problem  11-2 


The  material  below  shows  the  result  of  incorporating  the 
problem  statement  as  a  preamble  to  the  instruction  set* 


PAGE  1  OMNITAB  GEOMETRIC  PARAMETERS  FOR  TRIATOMIC  MOLECULES 

THE  FOLLOWING  CALCULATIONS  SOLVE  FOR  THE  SIDE  AND  THE  SINE  AND 
CCS  I NE  CF  TWC  ANGLES  OF  A  TRIANGLE  FORMED  BY  A  TRIATOMIC 
MCLECULE,  CONTAINING  ATOMS  LABELEC  0,  1,  2, WHERE  THE  ZERO 
DENOTES  THE  VERTEX  CF  THE  KNOWN  ANGLE,  PHI. 

THE  TABLE  IS  GIVEN  IN  TERMS  OF  THE  RATIO  OF  THE  BOND  DISTANCES 
RC1  OVER  R02  WHERE  RC1  IS  GREATER  THAN  R02. 

TABLE  3  GIVES,  AS  A  FUNCTION  OF  PHI  AND  RO I  OVER  R02 ,  THE 

FOLLOWING  PARAMETERS . 

Q,  THE  CISTANCE  BETWEEN  ATOMS  1  AND  2 
SI,  THE  CCS  PHI  012 
S2  THE  COS  PHI  021 

T 1  THE  SIN  PHI  312 

T2  THE  SIN  PHI  021 

AS  WELL  AS  THEIR  SQUARES  AND  PRODUCTS  S1S2,T1T2,  ETC. 

THE  CALCULATIONS  ARE  CARRIED  OUT  IN  THE  REPEAT  MODE  FOR  A 
VECTOR  CF  50  VALUES  OF  RO 1  OVER  R02  FOR  EACH  OF  91  CYCLES 
CORRESPONDING  TO  VALUES  OF  ANGLE  PHI  FROM  90  DEGREES  TO 
180  DEGREES  IN  UNIT  INTERVALS. 


PAGE  2  OMNITAB  GEOMETRIC  PARAMETERS  FOR  TRIATOMIC  MOLECULES 


PHI 

R 

Q 

S1S1 

S2S2 

T1T1 

T2T2 

S1S2 

90. 

1.00 

1.414214 

0.500000 

0.500000 

0.500000 

0.500000 

0.500000 

90. 

0.99 

1.407160 

0.505025 

0.494975 

0.494975 

0.505025 

0.499975 

90. 

0.98 

1.400143 

0.510100 

0.489900 

0.489900 

C. 510100 

0.499898 

90. 

0.97 

1.393162 

0.515225 

0.484775 

0.484775 

C. 515225 

0.499768 

90. 

0.96 

1.386218 

0.520400 

0.479600 

0.479600 

0.520400 

0.499584 

90. 

0.95 

1.379311 

0.525624 

0.474376 

0.474376 

0.525624 

0.499343 

90. 

0.94 

1.372443 

0.530898 

0.469102 

0.469102 

0.530898 

0.499044 

90. 

0.93 

1.365613 

0.536222 

0.463778 

0.463778 

0.536222 

0.498686 

90. 

0.92 

1.358823 

0.541594 

0.458406 

0.458406 

C. 541594 

0.498267 

90. 

0.91 

1.352072 

0.547016 

0.452984 

0.452984 

C. 547016 

0.497785 

90. 

0.90 

1.345362 

0.552486 

0.447514 

0.447514 

0.552486 

0.497238 

90. 

0.89 

1.338693 

0.558005 

0.441995 

0.441995 

0.558005 

0.496624 

90. 

0.88 

1.332066 

0.563571 

0.436429 

0.436429 

C. 563571 

0.495942 

90. 

0.87 

1.325481 

0.569184 

0.430816 

0.430816 

C. 569184 

0.495190 

90. 

0.86 

1.318939 

0.574845 

0.425155 

0.425155 

0.574845 

0.494367 

90. 

0.85 

1.312440 

0.580552 

0.419448 

0.419448 

0.580552 

0.493469 

90. 

0.84 

1.305986 

0.586304 

0.413696 

0.413696 

0.586304 

0.492495 

90. 

0.83 

1.299577 

0.592101 

0.407899 

0.407899 

C. 592101 

0.491444 

90. 

0.82 

1.293213 

0.597943 

0.402057 

0.402057 

0.597943 

0.490313 

90. 

0.81 

1.286895 

0.603828 

0.396172 

0.396172 

C. 603828 

0.489101 
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Problem  11—2 


The  OMNITAB  instructions  are  as  follows* 

OMN I  TAB  GEOMETRIC  PARAMETERS  FOR  TRIATOMIC  MOLECULES  JULY  31,1964 
TITLE2PHI  R  Q  S1S1  S2S2  TIT1  T2T2  SI 

TITLE4S2  TIT2  S1T2  S2TI 

NEWPAGE 

NOTE  THE  FOLLOWING  CALCULATIONS  SOLVE  FOR  THE  SIDE  AND  THE  SINE  AND 
NOTE  CCS  I NE  OF  TWO  ANGLES  OF  A  TRIANGLE  FORMED  BY  A  TRIATOMIC 
NOTE  MCLECULE,  CONTAINING  ATOMS  LABELED  0,  1,  2  WHERE  THE  ZERO 
NOTE  DENOTES  THE  VERTEX  OF  THE  KNOWN  ANGLE,  PHI. 

SPACE  1 

NOTE  THE  TABLE  IS  GIVEN  IN  TERMS  OF  THE  RATIO  OF  THE  BOND  DISTANCES 
NOTE  RCI  OVER  R02  WHERE  ROI  IS  GREATER  THAN  R02. 

NOTE  TABLE  3  GIVES,  AS  A  FUNCTION  OF  PHI  AND  ROI  OVER  R02,  THE 
NOTE  FOLLOWING  PARAMETERS...-. 

NOTE  C,  THE  DISTANCE  BETWEEN  ATOMS  1  AND  2 

NOTE  SI,  THE  CCS  PHI  012 

NOTE  S2  THE  CCS  PHI  021 

NOTE  T 1  THE  SIN  PHI  312 

NOTE  T 2  THE  SIN  PHI  021 

NOTE  AS  WELL  AS  THEIR  SQUARES  AND  PRODUCTS  S1S2,T1T2,  ETC. 

NOTE  THE  CALCULATIONS  ARE  CARRIED  OUT  IN  THE  REPEAT  MODE  FOR  A 
NOTE  VECTOR  OF  50  VALUES  OF  ROI  OVER  R02  FOR  EACH  Oc  91  CYCLES 
NOTE  CORRESPONDING  TO  VALUES  OF  ANGLE  PHI  FROM  90  DEGREES  TO 
NOTE  180  DEGREES  IN  UNIT  INTERVALS. 


GENERATE 

90.,  1.,  180.  COL  40 

RESET 

0 

GENERATE 

BEGIN 

1.,  -0.01,  0.51  COL 

DEFINE 

1,  40,  1 

INCREMENT 

INST  1,  BY  1,  0,  0 

SIND 

1,  3 

COSO 

1,  4 

SUBTRACT 

4,  41,  5 

MULT 

41,  4,  6 

SUB 

6  ,  la,  6 

MULT 

6,  1.,  7 

MULT 

5,  41,  1.,  7 

SORT 

7,  8 

DIVIDE 

6,  8,  9 

DIVIDE 

5,  8,  10 

DIVIDE 

3,  8,  12 

MULT 

12,  41,  11 

MULT 

9  9  19 

MULT 

10 

10  20 

MULT 

11 

11  21 

MULT 

12 

12  22 

MULT 

9 

10  23 

MULT 

11 

12  24 

MULT 

9 

12  25 

MULT 

FINISH 

10  11 

26 

FORMAT 

(IX,  1F4. 

0,  1F6.2, 

9F10 

.6) 

REPEAT 

1  22  1 

F  PR  I  NT 

1418 

19  20 

21  22 

23 

24 

25 

26 

REPEAT 

1  22  1 

FPRINT 

1  41  8 

19  20 

21  22 

23 

24 

25 

26 

STOP 
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Problem  11  —  3 


1  1 
FINC  THE  ROOTS  BETWEEN  ZERO  AND  30  OF  THE  TRANSCENDENTAL 
EQUATION 

TANX  =  3X  /  (3  -  X.X). 

ADAMS  (SMITHSONIAN  TABLES  V0L74,N0  1,PAGE  85)  GIVES  THE  FIRST 
SEVEN  ROOTS  AS  FOLLOWS 

0,  1.8346  ,2.8950  ,3.9225  ,4.9385  ,5.9489  ,6.9563  . 

THE  OMNITAB  INSTRUCTIONS  TO  SOLVE  THIS  PROBLEM  ARE  AS  FOLLOWS. 


CMNITAB  11-3 

GENERATE  0.  .3  30.  IN  COL  1 

PAGE  STARTING  WITH  1  IN  COL  55 


BEGIN  STORING  INSTRUCTIONS 
MULT  112  GIVES  X  SQUARED 
SUB  COL  2  FROM  3.  STORE  IN  2 
MULT  1  BY  3.  STORE  IN  3 
TAN  1  4 

CIV  3  BY  2  STORE  IN  5 
SUB  5  FROM  4  STORE  IN  6 

ISOLATE  IN  COL  1  FOR  COL  6  EQUAL  C.  STORE  IN  COL  1 

COMPARE  COL  43  AND  45  TO  A  TOLERANCE  OF  .00001 

CIV  45  BY  3.1415926  STORE  IN  44 

EXCHANGE  COL  43  AND  45 

FINISH  STORING  INSTRUCTIONS 

REPEAT  INSTR  1  THRU  10  9  TIMES 

HEAD  CCL  1/  ROOTS 

HEAD  CCL  44/  ROOT  /  PI 

HEAD  CCL  43/  ROOTS 

HEAD  CCL  6/  FIX) 

FIXED  WITH  6  DECIMALS 
PRINT  43  44  1  6 

STOP 


UPON  EXECUTION  OF  THE  ABOVE  COMMANDS,  THE  MACHINE  PRINTS  A  LINE 
INDICATING  WHETHER  OR  NOT  THE  COMPARE  WAS  SATISFIED.  IN  THIS 
CASE  IT  IS  AS  FOLLOWS. 


COMPARE  SATISFIED,  CONTROL  FORCED  FROM  REPEAT  MODE  AFTER 


8  TIMES 
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THE  RESULTS  FROM  THE  OMNITAB  CALCULATION  ARE  AS  FOLLOWS 


ROCTS 

RCCTS/PI 

X 

F  (X) 

0. 

0. 

0. 

C. 

4.712365 

1.499992 

4.712384 

16574.683594 

5.763464 

1.834568 

4.712388 

23787.610596 

7.854016 

2.500011 

4.712393 

42039.723145 

9.095031 

2.895038 

4.712397 

182535.781250 

10.995592 

3.500006 

4.712402 

—  76944. 686523 

12.322961 

3.922520 

5.763446 

-C. 000039 

14.137170 

4.500001 

5.763450 

-0.000016 

15.514635 

4.938462 

5.763455 

0.000006 

17.278746 

5.499996 

5.763459 

0.000028 

18.689024 

5.948901 

5.763464 

0.000050 

20.420324 

6.499991 

7.853979 

379871.320313 

21.853892 

6.956310 

7.853984 

-63541.136719 

23.561974 

7.500009 

7.853988 

-29429. 145508 

25.012829 

7.961831 

7.853993 

-19142.119141 

26.703552 

8.500005 

7.853997 

-14166.927368 

28. 167808 

8.966092 

9.094995 

-0.000018 

29.845129 

9.500000 

9.094999 

0.000002 

0. 

0. 

9.095004 

0.000021 

0. 

0. 

9.095008 

0.000041 

THE  ABCVE  PAGE  WAS  PRINTED  PARTIALLY  BEFORE  AND  PARTIALLY 
AFTER  THE  CALCULATIONS  BUT  BEFORE  THE  NORMAL  PRINTOUT 
WAS  REQUESTED.  THE  TEXTUAL  PORTION  WAS  PUNCHED  ON  CARDS 
WHICH  CARRIED  THE  WORD  NOTE  IN  THE  FIRST  SIX  COLUMNS. 
EXCEPT  FCR  THE  HEADINGS, THE  RESULTS  WERE  OBTAINED  VIA 
THE  T  PR  I  NT  INSTRUCTION.  NOTE  SHOULD  ALSO  BE  TAKEN  OF  THE 
LOCATION  CF  THE  PAGE  NUMBER  WHICH  IS  CONTROLLED  BY  THE 
INSTRUCTION 

PAGE  STARTING  WITH  1  IN  LOCATION  55 


The  extraneous  values  are  not  roots*  They 
correspond  to  infinite  discontinuities  in  the  function. 
They  show  up  here  since  the  ISOLATE  instruction  searches 
for  a  change  of  sign  of  the  function  and  interposes  a 
finer  mesh  between  the  two  abscissae  for  which  the 

function  exhibits  a  change  of  sign.  This  turns  out  to  be 
a  boon  rather  than  a  problem  since  it  shows  how  the 
instruction  can  be  used  to  isolate  certain  types  of 
infinite  discontinuities  as  well  as  roots.  We  leave  it 
to  the  reader  to  devise  a  few  instructions  which  will 
isolate  cusp  type  discontinuities. 

Pages  234  and  235  give  the  instruction  set  to 
achieve  the  above  results. 
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*  *  *  RESULTS  *  *  * 


RCOTS 

ROOT  /  PI 

ROOTS 

F  (  X  ) 

0. 

0. 

0. 

0. 

4.712365 

1.499992 

4.712384 

16574.683594 

5.763464 

1.834568 

4.712388 

23787.610596 

7.854016 

2.500011 

4.712393 

42039.723145 

9.095031 

2.895038 

4.712397 

182535.781250 

10.995592 

3.500006 

4.712402 

-76944.686523 

12.322961 

3.922520 

5.763446 

-0.000039 

14.137170 

4.500001 

5.763450 

-0.000016 

15.514635 

4.938462 

5.763455 

0.000006 

17.278746 

5.499996 

5.763459 

0.000028 

18.689024 

5.948901 

5.763464 

0.000050 

20.420324 

6.499991 

7.853979 

379871.320313 

21.853892 

6.956310 

7.853984 

-63541.136719 

23.561974 

7.500009 

7.853988 

-29429.145508 

25.012829 

7.961831 

7.853993 

-19142.119141 

26.703552 

8.500005 

7.853997 

-14166.927368 

28.167808 

8.966092 

9.094995 

-0.000018 

2 9.845129 

9.500000 

9.094999 

0.000002 

0. 

0. 

9.095004 

0.000021 

0. 

0. 

9.095008 

0.000041 

0. 

0. 

9.095013 

0.000061 

0. 

0. 

10.995574 

53672.940430 

0. 

0. 

10.995579 

2702931.812500 

0. 

0. 

10.995583 

-55952.775879 

0. 

0. 

10.995588 

-27748.279297 

0. 

0. 

10.995592 

-18320.543945 

0. 

0. 

12.322924 

-0.000018 

0. 

0. 

12.322929 

C. 000001 

0. 

0. 

12.322933 

0.000020 

0. 

0. 

12.322938 

0.000039 

0. 

0. 

12.322942 

0.000059 

0. 

0. 

14.137151 

29334.310059 

0. 

0. 

14.137156 

64315.842773 

0. 

0. 

14.137161 

-356130.003906 

0. 

0. 

14.137165 

-47292.640137 

0. 

0. 

14.137170 

-25303.915039 

0. 

0. 

15.514599 

-0.000004 

0. 

0. 

15.514603 

0.000014 

0. 

0* 

15.514608 

0.000033 

0. 

0. 

15.514612 

0.000052 

0. 

0. 

15.514617 

0.000071 

0. 

0. 

17.278746 

19853.452637 

0. 

0. 

17.278750 

31044.850830 

0. 

0. 

17.278755 

71201.400391 

0. 

0. 

17.278759 

-254010.958984 

0. 

0. 

17.278764 

-43777.187012 

0. 

0. 

18.689024 

-0.000050 

0. 

0. 

18.689029 

-0.000031 

0. 

0. 

18.689033 

-0.000013 

0. 

0. 

18.689038 

0.000006 
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The  OMNITAB  instructions  are  as  follows 


OMNI  TAB  11-3 

NOSUMMARY 


NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

SPACE 

NOTE 

NOTE 

NOTE 

SPACE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

SPACE 


PAGE  STARTING  WITH  1  IN  COL  55 
FIND  THE  ROOTS  BETWEEN  ZERO  AND  30  OF  THE  TRANSCENDENTAL 
EQUATION 


TANX  =  3X  /  (3  -  X.X). 

A C AMS  (SMITHSONIAN  TABLES  V0L74,N0  1,PAGE  85)  GIVES  THE  FIRST 
SEVEN  RCCTS  AS  FOLLOWS 

0,  1.8346  ,2.8950  ,3.9225  ,4.9385  ,5.9489  ,6.9563 

THE  OMNITAB  INSTRUCTIONS  TO  SOLVE  THIS  PROBLEM  ARE  AS  FOLLOWS 
1 

CMNITAB  11-3 

GENERATE  0.  .3  30.  IN  COL  1 

PAGE  STARTING  WITH  1  IN  COL  55 

1 

BEGIN  STORING  INSTRUCTIONS 
MULT  1  1  2  GIVES  X  SQUARED 

SUB  CCL  2  FROM  3.  STORE  IN  2 
MULT  1  BY  3.  STORE  IN  3 
TAN  1  4 

DIV  3  BY  2  STORE  IN  5 
SUE  5  FROM  4  STORE  IN  6 

ISOLATE  IN  CCL  1  FOR  COL  6  EQUAL  0.  STORE  IN  COL  1 

COMPARE  COL  43  AND  45  TO  A  TOLERANCE  OF  .00001 

DIV  45  BY  3.1415926  STORE  IN  44 

EXCHANGE  COL  43  AND  45 

FINISH  STORING  INSTRUCTIONS 

REPEAT  INSTR  1  THRU  10  9  TIMES 

HEAD  COL  1/  ROOTS 

HEAD  CCL  44/  ROOT  /  PI 

HEAD  CCL  43/  ROOTS 

HEAD  CCL  6/  F { X ) 

FIXED  WITH  6  DECIMALS 
PRINT  43  44  1  6 

STCP 

1 

GENERATE  0.  .3  30.  IN  COL  1 


BEGIN  STORING  INSTRUCTIONS 
MULT  1  1  2  GIVES  X  SQUARED 

SUB  CCL  2  FROM  3.  STORE  IN  2 
MULT  1  BY  3.  STORE  IN  3 
TAN  1  4 

DIV  3  BY  2  STORE  IN  5 
SUB  5  FROM  4  STORE  IN  6 

ISOLATE  IN  COL  1  FOR  COL  6  EQUAL  0.  STORE  IN  COL  1 
COMPARE  COL  43  AND  45  TO  A  TOLERANCE  OF  .00001 
CIV  45  BY  3.1415926  STORE  IN  44 
EXCHANGE  COL  43  AND  45 
FINISH  STORING  INSTRUCTIONS 
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SPACE 

NOTE 

NOTE 

NOTE 

SPACE 

SPACE 

NOTE 

SPACE 

NOTE 

FORMAT 

RESET 

SPACE 

T  PR  I  NT 

SPACE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

SPACE 

NOTE 


1 

UPCN  EXECUTION  OF  THE  ABOVE  COMMANDS,  THE  MACHINE  PRINTS  A  LINE 
INDICATING  WHETHER  OR  NOT  THE  COMPARE  WAS  SATISFIED.  IN  THIS 
CASE  IT  IS  AS  FOLLOWS. 

1 

REPEAT  INSTR  1  THRU  1C  9  TIMES 

1 

THE  RESULTS  FROM  THE  OMNITAB  CALCULATION  ARE  AS  FOLLOWS 

1 

RCOTS  ROOTS/PI  X  FIX) 

(  IX, 4F15.6) 

20 

1 


43  44  1  6 
1 

THE  ABOVE  PAGE  WAS  PRINTED  PARTIALLY  BEFORE  AND  PARTIALLY 
AFTER  THE  CALCULATIONS  BUT  BEFORE  THE  NORMAL  PRINTOUT 
WAS  REQUESTED.  THE  TEXTUAL  PORTION  WAS  PUNCHED  ON  CARDS 
WHICH  CARRIED  THE  WORD  NOTE  IN  THE  FIRST  SIX  COLUMNS. 
EXCEPT  FOR  THE  HEADINGS, THE  RESULTS  WERE  OBTAINED  VIA 
THE  T  PR  I  NT  INSTRUCTION.  NOTE  SHOULD  ALSO  BE  TAKEN  OF  THE 
LOCATION  OF  THE  PAGE  NUMBER  WHICH  IS  CONTROLLED  BY  THE 
INSTRUCTION 


I 


PAGE  STARTING  WITH  1  IN  LOCATION  55 
HEAD  COL  1/  ROOTS 
HEAD  COL  44/  ROOT  /  PI 
HEAD  COL  43/  ROOTS 

HEAD  COL  6/  FIX) 

FIXED  WITH  6  DECIMALS 
RESET  50 

PRINT  43  44  1  6 

STCP 
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11.2*  Sources  and  Accuracy  of  the  OMNITAB  Subroutines 


With  the  exception  of  the  function  subroutines 
discussed  below*  the  subroutines  in  OMNITAB  were  written 
at  the  National  Bureau  of  Standards*  The  symbolic 
listings  for  these  (approximately  12*000  lines)  will  be 
incorporated  in  a  separate  report*  For  the  present  work 
it  seems  sufficient  to  extract  from  the  detailed  program 
and  its  description  such  information  as  will:  give  the 
user  confidence  in  the  results;  emphasize  the 
consequences  of  certain  errors  in  the  commands;  and  help 
identify  the  causes  of  the  error  diagnostics* 
Accordingly  appendix  II  lists  the  causes  and 
consequences  for  those  error  diagnostics  which  are  not 
self-explanatory.  The  other  diagnostics  which  are  not 
listed  there  are  self-explanatory* 

As  indicated  above*  some  of  the  subroutines  were 
obtained  from  sources  outside  of  NBS*  Of  these*  the 
following  were  obtained  from  the  Bell  Telephone 
Laboratories  and  modified  only  superficially  to  fit  the 
OMNITAB  framework:  the  sine  integral*  cosine  integral, 
exponential  integral,  and  the  complete  and  incomplete 
elliptic  integrals. 

The  function  subroutine  for  SIN*  COS,  EXP,  NEGEXP* 
LOG*  LOGTEN,  TAN,  COTAN,  ARCSIN,  ARCCOS,  ARCTAN,  ARCCOT* 
SINH,  COSH,  TANH,  and  GAMMA  are  those  recently  written 
at  the  Computation  Center,  University  of  Chicago*0  They 
represent  a  significant  improvement  in  accuracy  over 
comparable  subroutines  available  under  the  IBM  Fortran 
II  library  or  under  the  IBJOB  library*00  The  accuracy 
and  limitations  of  these  subroutines  are  summarized  in 
table  C  below* 

The  matrix  diagonalizat ion  subroutine  used  to 
calculate  EIGENVALUES  and  EIGENVECTORS  was  obtained  from 
the  SHARE  library* 


Hirando  Kuki,  Analysis  for  University  of  Chicago,  Math 
Library  University  of  Chicago,  Computation  Center 
(August  1964)* 

°°H*  Kuki  and  C*  C*  J*  Roothaan,  Tests  on  University  of 
Chicago  Library  Function  Subprograms,  February  1964  as 
Revised  March  1964* 
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TABLE  C. 


Characteristics  of  Certain  Function  Subroutines  in 

OMNITAB 

COMMAND  RELATIVE  ERROR  LIMITATION  NOTE 


SQRT  <10E-8  for  positive  numbers 

only 


EXP 

<10E-8 

-88-02969  <X  <88-02969 

LOGE 

<10E-8 

for  0<  X 

<  1 OE— 7 •  6  (for  X  near  l) 

SIN 

<10E-8  for  -n/2  for  X  <  225 

COS 

<1 OE- 8  for  0<X<n 

for  X  <  225 

ATAN 

<10E-8 

10E-38  <  X  < 10E+38 

TANH 

TAN 

<tt/ 4  X  <  220 

<10E-8  for  -rr  /  4<  X 

COT 

ASIN 

<2-26 

for  X  <  1 

ACOS 

SINH 

<2"26 

for  X<  88-  028 

COSH 

ERROR 

<1 OE— 8 

10E-38  <X<  10E+38 

GAMMA 

<2~26  for  0<  X  <  4 

—127 

2  <  X<  34.  843 

a,  b 
c 


b,d 


b,  d,  e 


f 


a 


g 


a.  if  the  argument  exceeds  the  range,  the  calculation  is 
terminated. 

b.  if  the  argument  is  below  the  range,  a  zero  is  given 
as  the  answer  and  the  calculations  continue. 

c.  if  the  argument  is  zero  or  negative  the  calculation 
is  terminated. 

d.  rounding  errors  in  reducing  the  argument  to  the 
principal  range,  introduce  much  larger  errors* 

e.  except  near  tt/2* 

f.  if  the  argument  is  close  to  a  multiple  of  rr /2, 
rounding  may  introduce  larger  errors. 

g.  for  larger  arguments  the  error  is  of  the  order  of  the 
rounding  uncertainty. 


237 


PAGE  1  OMN IT  £  8  PROBLEM  11-4 

WE  WISH  TC  CHECK  THE  QUALITY  OF  THE  RESULTS  (ROUNDED  TO  SIX 
DECIMALS)  OBTAIN  FROM  OMNITAB  FOR  THE  FOLLOWING  FUNCTIONS  LNX 
E  X  P ( X ) ,  EXP(-X),  LOG ( X  )  ,  10  TO  X,  1/X,  SIN(X)  FOR  THE  FOLLOWING 
VALUES  OF  X.  0.0(0.002)0.1,  0.(  1. 0)50.  ALSO  LOG  X  FOR  THE 
FOLLOWING  VALUES  OF  X.  -50.(2.)50. 

THE  INSTRUCTIONS  ARE  AS  FOLLOWS 


CMMTAB  PROBLEM  11-4 
CMMTAB  TEST  PROBLEM  2 

GENERATE  0.0(0.002)0.1  STORE  IN  COL  1 
BEGIN 

LOGE  OF  1  STORE  2 

EXP  COL  1,  STORE  IN  COL  3 

NEGEXP  COL  1,  STORE  4 

LOGTEN  CCL  1,  STORE  IN  COL  5 

RAISE  10.0  TO  CCL  1,  STORE  IN  COL  6 

DIVIDE  1.0  BY  CCL  1,  STORE  IN  COL  7 

SIN  OF  1,  STORE  8 

FINISH 

HEAD  1/  X 

HEAD  2/  LN  X 

HEAD  3/  EXP  X 

HEAD  4/  EXP-X 

HEAD  5/  LOG  X 

HEAD  6/TEN  TO  THE  X 

HEAD  7/  1/X 

HEAD  8/  SIN  X 

REPEAT  1  THRU  7,  1  TIME 

PRINT  COL  1,2, 3, 4, 5, 6, 7, 8 

FIXED  6  DECIMALS 

PRINT  1,2, 3, 4, 5, 6, 7, 8 

ERASE  12345678 

RESET  1 

GENERATE  0. (1.0)50.  IN  COL  1 
REPEAT  I  TC  4  1  TIME 

RESET  TO  37  THIS  IS  DONE  SO  THE  MACHINE  WILL  NOT  TRY  TO  RAISE 
REPEAT  5  TC  5  1  TIME  TEN  TO  THE  FIFTYTH  POWER 
RESET  51 

REPEAT  6  TC  7  1  TIME 
FLOATING  WITH  6  DECIMALS 
PRINT  1,2, 3, 4, 5, 6, 7, 8 
RESET  1 

GENERATE  -50.(2.)50.  IN  CCL  1 

LOGE  OF  COL  1,  STORE  2 

LOGTEN  OF  CCL  1,  STORE  IN  COL  5 

PRINT  125 

STCP 
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PAGE  2  OMMTAB  PROBLEM  11 
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PAGE  8  OMMTAB  PROBLEM  11  -  A 


X 

LN  X 

LOG  X 
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01 
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00 
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-4.8C0000E 

01 
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11*3*  Operating  Efficiency 


In  various  places  in  earlier  chapters  we  have,  by 
direction  and  implication,  encouraged  the  reader  to 
experiment,  to  calculate  more  rather  than  less,  and  to 
print  more  rather  than  less*  Such  advice  is  based  on 
conviction  —  reinforced  by  particular  experience  both 
with  OMNITAB  and  more  conventional  machine  usage  —  that 
a  few  more  microseconds,  even  seconds,  of  computing,  and 
a  few  extra  pages  of  output  is  cheaper  by  many  orders  of 
magnitude  than  the  cost  of  returning  to  the  machine  at  a 
later  time*  But  even  returning  to  the  machine  a  few 
times  to  modify  or  polish  an  earlier  run  need  not  be 
costly  if  one  has  other  business  to  transact  there 
anyway*  This  is  especially  so  if  the  machine  is  fast  and 
the  program  is  efficient,  and  if  the  jobs  can  be  run  in 
batches  without  requiring  each  job  to  set  up  the  system* 

An  indication  of  the  speed  with  which  problems  of 
the  type  illustrated  here  are  handled  on  the  OMNITAB 
system  can  be  gotten  from  the  following  results  of  an 
experimental  run  on  45  of  the  problems  used  as 
illustrations  in  this  Handbook*  The  problems  were  run  in 
tandem  on  a  single  $JOB  card*  The  total  elapsed  time  was 
six  minutes,  the  total  printout  was  12300  lines  and  the 
total  punchout  was  715  cards*  Thus,  on  the  average  each 
problem  took  8  seconds*  The  instruction  set  and  data  for 
the  45  problems  came  to  about  2000  cards*  A  further 
experiment  was  run  to  separate  out  the  computing  time 
from  the  time  needed  to  dump  the  results  on  tape*  The 
six  minutes  were  distributed  as  follows* 

To  load  the  program  into  the  core  from  the 
system  tape*  0*5  min* 

To  read  the  control  cards  and  data  (2000  cards 
in  all)  and  write  them  on  the  scratch  tape* 

1*  0  min* 

To  carry  out  the  calculations*  2*  5  min* 

To  dump  the  answers  and  instructions 
(12,300  lines  and  715  cards)  2*0  min* 

It  should  be  clear  from  the  above  results  that,  if 
run  in  tandem,  the  problems  illustrated  require  somewhat 
less  than  4  seconds  on  the  average  for  computation,  and 
another  4  seconds  for  input  and  output*  The  proportion 
between  computation  and  input/output  varies  considerably 
from  problem  to  problem  so  the  4  to  4  ratio  cannot  be 
considered  universal*  Regardless  of  the  exact  ratio  it 
should  be  obvious  that  the  OMNITAB  user  ordinarily  pays 
little  if  any  price  for  the  extra  output  which  OMNITAB 
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“imposes"  on  him;  or  for  the  interpretive  mode;  or  for 
the  length  of  the  instruction  set;  or,  except  in  rare 
instances,  for  the  need  to  keep  some  subroutines  on  tape 
files  because  there  is  no  room  for  all  of  them  in  the 
core* 

In  problems  of  the  type  illustrated  here  and  even  in 
larger  ones  it  can  be  said  quite  categorically  that  they 
should  not  run  longer  than  a  minute*  A  problem  which 
runs  two  minutes  on  OMNITAB  is  an  exceedingly  long  one* 
It  is,  however,  possible  to  set  up  a  problem  in  the 
repeat  mode  which  may  burn  up  a  lot  of  time  if  not  set 
up  wisely.  If  a  choice  presents  itself,  the  calculations 
should  be  so  arranged  as  to  minimize  the  number  of  times 
instructions  are  used  alternately  from  different  files* 
We  can  illustrate  this  point  best  by  describing  a 
situation  which  existed  when  the  instruction  SEARCH  was 
not  in  the  same  file  with  the  TRANSPOSE  instruction  and 
the  matrix  operations* 

Consider  a  calibration  table  containing  36 
weights  and  their  identification  and  59  sets 
of  numbers  (approximately  16  per  set) 
representing  weight  combinations  for  59 
experimental  points*  The  calibration  table  is 
to  be  searched  and  summed  for  the  weights 
contained  in  each  of  the  59  sets  and  the  sums 
are  to  be  stored  in  a  single  column* 

This  seemingly  straightforward  problem  can  be  done 
either  in  an  efficient  way  or  in  an  exceedingly 
inefficient  way*  Indeed  it  can  be  done  so  inefficiently 
as  to  use  six  minutes  of  machine  time  rather  than  one 
minute*  This  time  is  taken  in  running  back  and  forth  on 
the  system  tape  100  or  more  times  to  pull  in  subroutines 
which  are  in  the  transient  files*  The  following  two 
figures  show  how  a  simple  change  in  the  arrangement  of 
the  data  and  tftie  instructions  can  cut  the  machine  time 
from  six  minutes  to  one  minute*  Because  of  this  possible 
pitfall,  there  is  included  in  tables  D  and  E  the 
distribution  of  the  OMNITAB  Commands  among  the  system 
files*  These  tables  will  enable  a  user  to  determine  how 
many  times  his  problem  will  call  upon  the  system  to  read 
transient  files  during  the  calculation.  The  swapping  of 
transient  files  only  takes  0*05  minutes,  and  is  really 
of  no  consequence  in  most  calculations*  The  swapping  of 
files  is  of  real  consequence  when  it  is  executed 
hundreds  of  times,  as  could  well  be  the  case  in  the 
repeat  mode* 

While  the  present  arrangement  of  the  commands 
resolves  the  sample  problem,  it  will  obviously  not 
resolve  all*  The  user  is  therefore  cautioned  to  be 
careful  when  calling  on  several  files  in  the  repeat 
mode* 
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OMNITAB  CCNT ROLLED  CLEARANCE  AIR  GAGE  DATA  REDUCTION  11/10/64 
NOSUNMARY 
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1  2  2  3 

2.547861  6 

.364843 

63.643294 

4. 
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21. 
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.200 
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.020 

0.000044 
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0.001099 
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0.000022 

0.000055 

0.000550 

35.  1. 

256.187 

58 

2548.68016 

151. 

1. 

9.99356 
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SORT  1 

2  3 

READ 
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7 
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.2 
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9.  9. 
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3.  21. 

22. 
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.  76.  50. 

10. 

.2 

.2 
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9.  9. 

145.22 

3.  21. 

22. 
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9.  9. 

145.23 
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1C. 

.2 

.  1 
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9. 

9.  9. 

145.31 

3.  21. 

22. 

151.  76.  20 

.  10.  5.  1 

•  • 

5  . 

2  9 

.  9 

.  9. 

9. 

145.32 

3.  21. 

22. 

151.  76.  20 

.  10.  5.  1 

•  • 

5  9 

.  9 

.  9 

.  9. 

9. 

145.33 

3.  21. 

22. 

151.  76.  20 

.  10.  5.  1 

* 

#  • 

5  . 

1  9 

.  9 

.  9. 

9. 

148.31 

3.  21. 

51. 

12.  79.  50. 

10.  5.  2. 

2. 

.5 

9. 

9. 

9. 

9. 

148.32 

3.  21. 

51. 

12.  79.  50. 

10.  5.  2. 

2. 

.5 

9. 

9. 

9. 

9. 

148.33 

BEGIN 

3.  21. 

51. 

12.  79.  50. 

10.  5.  2. 

2. 

.2 

.2 

9. 

9. 

9. 

TRANSPOSE  1  21 
PROMOTE  3  21  22 

SEARCH  OLD  X  IN  1  NEW  X  22  OLD  Y  2  NEW  Y  23 
SUM  23  24 
DEFINE  1  24  1  40 
ERASE  21  22  23  24 
INCREMENT  50010 
INCREMENT  110 
FINISH 

REPEAT  1  8  59  TIMES 
HEAD  40/  AO-PSI 
FIXED  5 
PRINT  40 

STOP 


Figure  11—3-  An  example  of  a  very  inefficient  solution 
of  a  problem  requiring  commands  from  different  OMNITAB 
files.  Since  TRANSPOSE  and  SEARCH  are  in  different 
transient  files,  these  files  are  swapped  118  times 
during  the  course  of  this  calculation.  See  figure  11-4 
for  an  efficient  solution. 
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OMNITAB  CCNT ROLLED  CLEARANCE  AIR  GAGE  DATA  REDUCTION  11/10/64 
NOSUMMARY 

10  11  12  13  14  15  16  17  18  19 
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.  27 
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145.12 
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3. 

21. 
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3. 
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148.32 

3. 
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12. 

148.33 

3. 

21. 

51. 

12. 

DEMOTE 

36  LINES 

RESET 

0 

READ 

1 

2 

2  3 

79.  100.  5.  2.  2.  .5  9. 
79.  100.  10.  .5  .2  .1  9 

51.  76.  50.  10.  .2  .2  9 

51.  76.  50.  10.  .5  9.  9 

51.  76.  50.  10.  .2  .1  9 

20.  10.  5.  1.  .5  .2  9. 
20.  10.  5.  1.  .5  9.  9. 


.  9. 
9.  9 

.  9. 

.  9. 

.  9. 

.  9. 
9.  9. 
9.  9. 
9.  9. 


9.  9. 
.  9. 
9.  9. 
9.  9. 
9.  9. 
9.  9. 
9. 

9. 

9. 


79. 

79. 


50. 

50. 

50. 


10. 

10. 

10.  5. 


5.  2. 
5.  2. 
2. 


.5  9.  9.  9.  9. 
.5  9.  9.  9.  9. 
.2  .2  9.  9.  9. 


3.  2.547861  6.364843  63.643294 

4.  2.027874  5.065857  50.654483 

21.  20.001400  49.965747  499.617126 

22.  20.000100  49.962499  499.584652 

23.  20.001200  49.965248  499.612129 


151.  1.  9.99356  99.92752 

SORT  1  2  3 

SCALAR  1,4,36,  16,0., 1,4 

MTRANS  ROW  37  ,4,30  ROWS  BY  16  INTO  1,4 
BEGIN 

SEARCH  OLD  X  1  NEW  X  4  ,OLD  Y  2  ,  NEW  Y  38 
SUM  38,  39 
DEFINE  1  39  1  40 

INCREMENT  1,  0  ,1,0,0 
INCREMENT  3,0,0, 1,0 
FINISH 

REPEAT  1,5  30  TIMES 
MTRANS  67,4,29,16,1,4 
INCREMENT  1  BY  0,-30, 0,0 
REPEAT  1,5,29 
HEAD  40/  AO-PSI 
FIXEC  5 
PRINT  40 

STCP 


Figure  11-4*  A  more  efficient  solution  to  a  search 
problem  requiring  commands  from  different  OMNITAB  files. 
First,  more  operations  are  done  outside  of  the  repeat 
mode  using  matrix  operations.  Next,  the  repeat  mode 
contains  instructions  from  a  single  transient  file  which 
is  read  in  only  once  for  the  30  repeats  and  once  again 
for  the  29  repeats*  Here  the  transient  files  are  swapped 
only  4  times  instead  of  118  times* 
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TABLE  D 


OMNITAB 


ABRIDGE 

ABSOLUTE 

ACOSD 

ACOSH 

ACOTD 

ACOTH 

ADD 

ANT I LOG 

ARCCOS 

ARCCOT 

ARCSIN 

ARCTAN 

ASIND 

ASINH 

ARAN 

ATAND 

ATANH 

AUT 

BEGIN 

CAP 

CGS 

CHANGE 

COM 

COMPARE 

COS 

COSD 

COSH 

COT 

COTD 

COTH 

DEFINE 

DEMOTE 

DIVIDE 

END 

ERASE 

EXCHANGE 

*  The  program 
core. 


Commands  in  the  Basic  Package* 


EXP 

EXPONENT 

F ABRIDGE 

FIXED 

FLOATING 

FOOTNOTE 

FORMAT 

FPRINT 

FPUNCH 

FREAD 

GENERATE 

HEA 

HEAD 

INCREMENT 

INDEX 

IFEQ 

IFGR 

IFLS 

JOU 

LOGE 

LOGTEN 

MAXIMUN 

MINIMUM 

MKSA 

MULTIPLY 

NEGEXP 

NEWPAGE 

NOLIST 

NOSUMMARY 

NOTE 

OMNITAB 

PAGE 

PARPRODUCT 

PARSUM 

PLOT 

PRINT 


PRO 

PROMOTE 

PUNCH 

RAISE 

READ 

REPEAT 

RESET 

RMS 

ROWSUM 

SCRATCH 

SET 

SIN 

SIND 

SINH 

S INTEGRAL 

SPACE 

SQRT 

STOP 

SU 

SUBTRACT 

SUM 

SUMMARIZE 

TAB 

TAN 

TAND 

TANH 

TIT 

TITLE1 

TITLE2 

TITLE3 

TITLE4 

T PRINT 

FINISH 


to  execute  these  commands  is  always  in  the 
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TABLE  E 


Distribution  of  OMNITAB  Commands  in  the  Transient  Files* 


FILE  1 


ADIVIDE 

ALOGE 

ALOGTEN 

AMULT 

APR  I  NT 

ARAISE 

ARRAYAVERAGE 

AVERAGE 

BACKTRANSFORM 

BLOCKTRANSFER 

CENSOR 

CLOSEUP 

COALESCE 

COUNT 

COLNORMALIZE 

DIAGONALIZE 

D I AG VECTOR 

DELETE 

DUPLICATE 

FLIP 

INSERT 

I SETUP 

ITERATE 

LENGTH 

MAD  D 

MAXEL 

MINEL 

MMULT 

MRAISE 

MSUB 

MTRANSPOSE 

NRMAX 

ORDER 

CHOP 


RESTMATRIX 

ROWNORMALIZE 

SCALAR 

SEARCH 

SELECT 

SHORTEN 

SORT 

SEPARATE 

SYMLTM 

SYMUTM 

TRACE 

TRANSFORM 

TRANSPOSE 

VECMATRIX 

VECMULT 

FILE  2 


CADD 

CDIV 

CMULT 

CSUB 

EXPAND 

FIT 

POLYFIT 

PRODUCTS 

SFIT 

SOLVE 

SPOLYFIT 

FILE  3 


COMPLETE 
COS INTEGRAL 


EINT 
FORMULA 
INCOMPLETE 
LAG INTEGRAL 
S ININTEGRAL 
SPLOT 

FILE  4 


EIGENVALUES 

EIGENVECTORS 

LINEAR 

INVERT 

FILE  5 


DERIVATIVE 

DIFFERENCE 

DIVDIFFERENCE 

INTERPOLATE 

ISOLATE 

MAXMIN 

SDIFFERENCE 

SDIVDIFFERENCE 

STATISTICAL 

SSTATI ST I CAL 

FILE  6 


ATOMIC 
BE I ONE 
BE I ZERO 
BEJONE 


BE J ZERO 

BEKZERO 

BEKONE 

BERBEI 

BEYONE 

BEYZERO 

CERF 

CTOF 

DBERBEI 

DKERKEI 

EINSTEIN 

ERROR 

FTOC 

GAMMA 

GQUAD 

HARMON 

HSUB 

KERKEI 

LSUB 

MOLWT 

PARTFUNCT I ON 
PFATOM 

PFTR AN  SLAT ION 

PSUB 

STRUVE 

TSUB 

USUB 

FILE  7 


COMMANDS 

MANUAL 

WATSNU 


*Words  not  listed  are  in  the  basic  package  (See  Table  D) 
which  is  always  in  the  core. 
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APPENDIX  I 


CAUSES  AND  CONSEQUENCES  OF  ERROR  DIAGNOSTICS 


ARGUMENT  IN  SENTENCE  INCORRECT 

a*  too  few  or  too  many  arguments  on  the  instruction 
card. 

b.  an  argument  is  in  the  wrong  form  (i.e.,  fixed  or 
floating  instead  of  integer  or  vice  versa) • 

c.  calls  INVLD. ° 

ARGUMENTS  OF  PRODUCTS  MUST  BE  COLUMN  NUMBERS 

a*  argument  in  instruction  has  the  wrong  form, 
b.  calls  INVLD. 

CHECK  SEQUENCE  OF  X  VALUES 

a.  the  SEARCH  requires  that  the  first  column 
specified  contain  numbers  in  increasing  order. 

b.  calls  INVLD. 

CHECK  SEQUENCING  OF  X  VALUES 

a.  INTERPOLATE  and  DERIVATIVE  require  algebrically 
increasing  X. 

b.  calls  INVLD. 

COLUMNS  SPECIFIED  IN  ITERATE  STATEMENT  DO  NOT  CONTAIN 
ENOUGH  VALUES  TO  ALLOW  ITERATION 

a.  calls  INVLD 

CONTROL  FORCED  FROM  REPEAT  MODE 

a«  something  illegal  was  encountered  while  in  the 
REPEAT  mode* 

b.  calls  INVLD. 

DEMOTE  EXCEEDS  ROW  LIMIT,  DEMOTION  TERMINATES  AT  END  OF 

COLUMN 

a»  when  demote  would  give  more  than  101  lines  only 
101  are  stored. 

b.  this  notice  is  given  the  first  4  times  under  any 
one  OMNITAB  run. 

DEMOTED  OR  PROMOTED  ARRAY  OFF  THE  WORK  SHEET 

a.  promoting  or  demoting  by  more  than  101  rows  not 
allowed. 

b.  calls  INVLD. 

EIGENV  HAS  , ,  ARGUMENTS 

a*  too  few  arguments  on  EIGENVECTOR, 
b.  calls  INVLD. 


INVLD  terminates  the  computation,  reads  the  rest  of 
the  instructions,  and  flags  illegal  words  and  goes  on  to 
the  next  OMNITAB  instruction,  where  computation  resumes* 
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EQUATION  SOLVE  HAS  , ,  ARGUMENTS 
a*  too  few  arguments  on  LINEAR, 

b.  calls  INVLD. 

ERROR  IN  DEFINE  INSTRUCTION 

a*  too  few  arguments  in  instruction, 
b.  calls  INVLD. 

ERROR  IN  REPEAT  MODE 
a*  calls  INVLD. 

FRACTIONAL  POWERS  OF  NEGATIVE  NUMBERS  NOT  PERMITTED 
POWER  OF  THE  ABSOLUTE  VALUE  IS  GIVEN 
a*  EXPAND  does  not  allow  imaginary  numbers, 
b.  the  program  continues. 

IMPROPER  ISOLATE  INSTRUCTION 

a*  too  few  arguments  on  card?  or  the  form  of  the 
fourth  number  is  wrong, 
b.  calls  INVLD. 

IMPROPER  PLOT  INSTRUCTION 

a.  too  many  arguments  on  card. 

b.  if  last  number  is  floating  point  all  four  last 
numbers  must  be  floating  point.  If  limits  for  plot 
are  given,  all  four  must  be  given  X  rain,  X  max,  Y 
min,  Y  max. 

c.  calls  INVLD. 

INSTRUCTION  IS  DESTROYING  ORIGINAL  DATA  TO  BE  DUPLICATED, 
COALESCED  OR  ARR AYAVERAGED ,  CHANGE  STORAGE  LOCATION 

a.  calls  INVLD. 

INVALID  INPUT  TO  POLYFIT,  FIT  OR  SOLVE 
a*  too  few  points  for  order  specified. 

b.  or  the  weights  may  all  be  zero. 

c.  or  too  few  arguments  are  given. 

d.  calls  INVLD. 

INVERT  HAS  , ,  ARGUMENTS 

a*  too  few  arguments  on  INVERT, 
b.  calls  INVLD. 

I SETUP  OR  ITERATE  HAS  FOUND  ,,  VALUES 

a*  if  no  values  are  found  INVLD  is  called, 
b.  if  more  than  100  rows  (i.e«  20  values)  are  found 
by  them  NR MAX  is  set  to  100  and  100  values  are 
stored. 

MATRIX  IS  SINGULAR 

a.  a  singular  matrix  cannot  be  solved. 

b.  calls  INVLD. 
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MAXIMUM  OF  10  ARGUMENTS  ALLOWED  IN  REPEAT  MODE 

a*  to  conserve  storage  space  only  ten  arguments 
(numbers)  are  allowed  on  each  instruction  inside  the 
REPEAT  MODE, 
b.  calls  INVLD. 

NO  FURTHER  WARNING  ON  DEMOTE  WILL  BE  GIVEN 

a«  when  5  DEMOTES  under  one  OMNITAB  run  exceed  101 
this  printout  is  given. 

b.  only  101  values  are  stored  without  further  notice. 

NO  MAXIMUM  OR  MINIMUM  FOUND  WITH  MAXMIN 
a.  the  program  continues. 

ONLY  101  VALUES  HAVE  BEEN  SET  INTO  COLUMN 

a-  under  SET,  only  101  arguments  are  stored  even  if 
more  are  given. 

PLEASE  REMOVE  DATA  FROM  COLS  ++  THRU  ++ 

a.  SELECT  does  not  allow  any  storage  in  or  input  from 
columns  41  —  46« 
b-  calls  INVLD. 

PRODUCTS  MUST  HAVE  AT  LEAST  THREE  ARGUMENTS 

a.  too  few  arguments  on  the  instruction  PRODUCTS. 

b.  calls  INVLD. 

SUBROUTINE  IS  NOT  IN  DECK 

a*  INTEGRAL  has  not  been  written, 
b.  calls  INVLD. 

THE  CORRECT  SPELLING  OF  THE  INSTRUCTION  IS  SEPARATE 

a*  warning  is  printed  and  computation  continues  as 
SEPARATE. 

THE  PRODUCT  OF  N=, ,  M=, ,  MUST  NOT  EXCEED  101 

a.  one  cannot  make  a  vector  longer  than  101  row  out 
of  matrix  with  VECMAT. 

b.  calls  INVLD. 

THE  PROGRAM  GENERATED  ONLY  101  VALUES 

a.  no  matter  what  the  range  under  GENERATE,  only  a 
maximum  of  101  will  be  generated. 

b.  the  program  continues. 

THE  PROGRAM  READ  ONLY  101  DATA  CARDS 

a*  under  READ,  only  101  data  cards  are  stored  even  if 

more  are  given. 

b*  the  program  continues. 
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TOO  MANY  INSTRUCTIONS  IN  REPEAT  MODE 

a*  more  than  150  instructions  were  placed  between 
BEGIN  and  FINISH, 
b.  calls  INVLD. 

VALUE  **  NOT  FOUND  FOR  SHORTEN 

a.  transfers  designated  columns  and  does  not  reset 
NR  MAX. 

b.  the  program  continues* 

VALUE  ,,  NOT  FOUND  IN  ISOLATE  OR  MAXMIN  INSTRUCTION 
a*  the  program  continues* 

VALUE  **  WAS  NOT  FOUND  BY  COALESCE  OR  ARRAYAVERAGE, 

ZEROS  RETURNED 
a.  the  program  continues. 

101  VALUES  OF  INSERT  STORED 

a.  only  101  values  are  stored  and  NRMAX  is  set  to 
101- 

X  IS  DUPLICATED  IN  A  TRIAD 

a.  in  MAXMIN  three  adjacent  points  are  examined;  if 
two  of  the  three  X  s  are  identical?  this  is  printed 
out  and  no  calculation  is  done  for  those  three 
points*  Program  continues  for  next  three  points. 

YOU  FORGOT  THE  DATE  ON  THE  OMNITAB  CARD 

a.  the  program  expects  at  least  two  numbers  on  the 
OMNITAB  card. 

b.  the  program  continues* 

*** ILLEGAL  CONSTANT  ILLEGAL  CONSTANT*** 

a.  an  asterisk,*,  cannot  be  used  except  when  calling 
for  one  of  the  fundamental  constants. 

b.  calls  INVLD. 

***ILLEGAL  INSTRUCTION* **XXXXXX*** ILLEGAL  INSTRUCTION*** 
a*  given  whenever  INVLD  is  called. 

b.  computation  is  stopped  until  an  OMNITAB  card  is 
encountered. 

***  LOGARITHM  OR  BASE  OF  POWER  NEGATIVE  OR  ZERO  *** 

a.  a  negative  number  is  raised  to  a  floating  point 
number,  the  power  is  truncated  to  an  integer  and 
program  continues- 
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APPENDIX  II 


BRANCHING  INSTRUCTIONS 


In  Section  6*1,  one  finds  a  description  of  the  instruction 
COMPARE  which  is  useful  in  exiting  from  a  repeat  loop  after  all 
of  the  values  in  two  designated  columns  match  row  by  row  to 
within  the  stated  tolerance*  This  command  is  useful  in  iterating 
each  of  the  elements  in  a  vector  to  a  fixed  set  of  values  or 
until  the  series  of  iterants  settle  down  to  a  set  of  stable 
values*  In  the  latter  case,  the  result  of  the  nth  iteration  is 
compared  with  those  of  the  ( n— 1) st •  The  two  columns  are 
interchanged  after  each  iteration,  until  the  comparison  is 
satisfied • 

The  COMPARE  instruction  has  its  most  important  application 
in  computing  the  inverse  of  a  function  as  is  illustrated  in 
Problem  6—4  (page  170) ,  as  well  as  in  the  evaluation  of  power 
series  as  in  Problem  6—8  (page  179) •  It  should  be  noted  that  when 
used,  the  COMPARE  instruction  must  be  imbedded  in  the  stored  set* 

When  applied  to  a  problem  in  chemistry  where  it  is  important 
to  check  a  mass  balance  of  6  or  more  atoms,  a  single  compare 
instruction  takes  the  place  of  many  separate  IF  statements 
required  in  ordinary  programming  techniques. 

It  is  interesting  that  during  the  four  or  more  years  that 
OMNITAB  was  being  designed,  programmed,  and  applied,  the  need  for 
more  conventional  (by  programming  standards)  branching 
capabilities  did  not  arise*  Only  at  the  very  end,  when  OMNITAB 
was  applied  to  the  solution  of  a  complex  problem  in  chemical 
equilibrium  of  air  at  high  temperatures  involving  the  solution  of 
large  sets  of  non— linear  equations,  did  it  become  clear  that 
additional  conditional  branching  instructions  would  be  useful* 
These  were  programmed  forthwith,  added  to  the  basic  package,  and 
then  ignored  in  the  text*  Their  presence  in  the  system  was  not 
disclosed  because  of  the  reluctance  of  the  authors  at  that  time 
to  have  OMNITAB  viewed  as  still  another  programming  language* 

Three  branching  instructions  are  provided  in  OMNITAB:  IFEQ 
compares  two  columns  of  numbers  and  if  each  element  of  the  first 
is  equal  to  the  corresponding  element  of  the  second,  certain 
contiguous  stored  instructions  are  executed  ( repeated)  a  specified 
number  of  times*  If  the  equality  is  not  satisfied  for  each  of  the 
numbers  in  the  column,  an  alternate  set  of  instructions  is 
excuted  the  number  of  times  designated*  Thus: 

IFEQ  2,  3,  1,  10,  4,  11,  18,  5 

causes  instructions  1  through  10  of  the  stored  set  to  be 
repeated  four  times  if  values  in  column  2  equal  those  in  column 
3*  If  this  equality  is  not  satisfied,  the  calculation  proceeds 
to  instruction  11  through  18  which  are  repeated  5  times*  Unlike 
the  COMPARE  instructions,  the  IFEQ  instruction  is  always  outside 
of  the  stored  set  or  as  is  now  the  accepted  jargon  of  OMNITAB 
users  '' outside  of  the  repeat  mode*'' 

The  above  operating  characteristics  of  the  instruction  IFEQ 
apply  to  the  instruction  IFLS  (if  less)  and  IFGR  (if  greater)  * 
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Commands 
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II • 1  Examples  of  the  Exploitation  of  the  OMNITAB  Commands 


Since  OMNITAB  became  fully  operational  some  three  years  ago, 
it  has  been  used  extensively  by  the  staff  of  the  Statistical 
Engineering  Laboratory  to  solve  a  variety  of  problems  which  have 
arisen  while  providing  consultative  services  and  also  in  basic 
research*  Some  of  this  experience  is  passed  on  now  in  the 
anticipation  that  it  may  be  of  use  to  others*  The  notes  and 
thoughts  are  based  on  the  experience  of  too  many  users  to 
mention,  but  fruitful  discussions  with  Brian  L*  Joiner  and  Joan 
R •  Rosenblatt  have  been  appreciated* 

The  structure  and  features  of  OMNITAB  provide  a  tool  far 
more  powerful  than  is  evident  to  the  casual  reader*  A  belief, 
common  among  those  who  have  had  experience  writing  programs  in 
other  languages,  is  that  OMNITAB  is  fine  for  doing  simple 
calculations,  but  is  inadequate  for  more  sophisticated  problems* 
Two  objections  have  been  that  OMNITAB  does  not  have  the 
capability  of  logical  branching  and  does  not  have  adequate 
capability  for  modifying  instructions*  Now  it  is  realized  that 
the  observations  of  the  casual  observer  are  virtually  unfounded* 
OMNITAB  is  a  general-purpose  program  rather  than  an  all-purpose 
program,  but  the  user  who  has  had  some  experience  with  OMNITAB 
shortly  realizes  the  generality  is  far  beyond  that  which  can  be 
gleaned  from  a  mere  reading  of  this  manual* 

In  addition  to  the  features  discussed  fully  in  the  beginning 
chapters,  such  as  freedom  from  formating,  simple  and  liberal 
rules,  etc*;  there  are  other  features  of  considerable  advantage 
such  as  flexibility,  reliability  and  the  power  of  numerous 
manipulative  commands*  These  are  discussed  more  fully  in  what 
follows  * 

OMNITAB  permits  a  consultant  to  be  productive  without 
facility  with  FORTRAN  and  without  the  ready  assistance  of 
professional  programmers*  Applied  statistics  requires  extensive 
and  varied  computation,  so  OMNITAB  has  been  used  often*  While  in 
the  beginning  a  number  of  us  approched  OMNITAB  with  some 
reservation,  now  the  consensus  is  that  it  would  be  difficult  to 
get  along  without  OMNITAB* 

Sometimes  all  that  has  been  necessary  is  a  STATISTICAL 
ANALYSIS  or  FIT*  Usually  these  programs*  are  written  and  punched 
in  minutes*  At  other  times  it  has  been  necessary  to  analyze  a 
partially  balanced  incomplete  block  design  or  solve  a  problem  in 
non-linear  regression*  Programs  for  these  problems  have  been 
written  free  of  errors  in  less  than  a  half  hour* 

Writing  a  program  is  one  thing  and  debugging  it  is  another* 
After  a  little  experience  it  is  common  for  OMNITAB  users  to  write 
programs  free  of  programming  errors*  The  errors  that  do  occur  are 
usually  easily  detected  and  corrected*  The  following  numbered 
examples  illustrate  some  of  the  features  which  make  OMNITAB 
such  a  useful  tool* 


*Here  and  in  what  follows  the  word  program  is  used  to  denote  a 
set  of  OMNITAB  instructions. 
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1.  It  is  hard  to  overemphasize  the  importance  and  usefulness  of 
self— teaching,  described  in  section  4-6*  One  can  learn  the  basic 
rules  of  OMNITAB  very  quickly,  say  within  two  hours,  and  then 
proceed  on  his  own*  This  is  very  valuable  for  those  of  us  who 
have  difficulty  reading  manuals  carefully* 

Many  times  little  programs  have  been  added  (at  virtually  no 
cost)  at  the  end  of  a  program  to  clarify  a  particular 
instruction*  For  example,  it  is  not  completely  clear  whether  the 
command  RMS  described  on  page  38  stores 


However,  the  question  is  readily  answered  by  using  the  following 
instructions: 

OMNI TAB 

GENERATE  1  *  ( 1  * )  5 •  STORE  1 

RMS  1  STORE  2 
PRINT  1  2 
STOP 

2 

fNote.  Ex.  for  integers  is  easily  obtained  from  the  formula 

1  +  2 +  ...  +  n  =  n(  n+1)  (  2n+l)  /  6  so  that  Exi  A  = 

(  n+1)  (  2n+l) /6  •)  It  would  be  easy  to  write  many  programs  like  this 
in  a  short  period  of  time  and  very  quickly  become  an  '  '  expert'  ' 
user*  The  ease  with  which  this  can  be  done  is  sometimes 
overlooked  or  unappreciated*  The  technique  of  self-teaching  has 
been  used  effectively  in  class  instruction* 

2*  An  obstacle  faced  by  non— programmers  is  that  with  some 
languages,  such  as  FORTRAN,  it  is  almost  necessary  to  be  an 
expert  programmer  to  do  even  the  simplest  calculation*  To  do 
anything  in  FORTRAN,  it  is  necessary  to  understand  some  of  the 
most  troublesome  statements  of  the  language  such  as  FORMAT, 
DIMENSION  and  WRITE*  An  OMNITAB  user  with  no  computing  experience 
can  being  writing  programs  to  perform  non— trivial  computations 
with  less  than  two  hours'  study*  By  self— teaching  he  can  proceed 
at  his  own  speed  to  become  an  ''expert*'' 

3*  The  very  nature  of  OMNITAB  is  such  as  to  make  logical 
branching  unnecessary  in  most  instances*  In  others  it  may  be 
possible  with  a  little  ingenuity*  For  example,  the  following 
instructions  provide  for  replacing  log^  (a^/b^)  by  the  constant 

c  whenever  ai  <  0 •  Capital  letters  A,  B,  D,  and  F  represent 

column  numbers;  corresponding  lower  case  letters  represent 
elements  in  the  columns*  We  assume  b^  >  0  • 


a  <  0 


a  >  0 


CENSOR  A  FOR  0*0  REPLACE  B  STORE  D 
DIVIDE  D  BY  B  STORE  F 
LOGTEN  F  STORE  F 


d  =  b 
f  =b/b=l 
f  =  0 


f=log10(a/b) 


d  =  a 
f  =a/b 


SUBTRACT  A  FROM  D  STORE  D 
DIVIDE  D  BY  D  STORE  D 
MULTIPLY  D  BY  c*  BY  1*0  ADD  TO  F 


d  =  b-a 
d  =  1 
f  =  c 


f-log10(a/b) 


d  =  0 
d  =  0 
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4 •  A  problem  that  occurred  in  a  program  for  non-linear 
estimation  was  to  find  a  way  to  restore  an  instruction  which  was 
incremented  in  the  repeat  mode*  Since  COMPARE  was  one  of  the 
stored  instructions ,  the  actual  number  of  cycles  excuted  was 
unknown.  The  relevant  part  of  the  program  was 

Ins.tr*  Command 
BEGIN 


14  BLOCKTRANSFER  , ,  ++  , ,  n  [1],++ 

15  INCREMENT  14  0,0  0,0  1,0 


34  COMPARE  4  30  5*E-8 

35 

FINISH 

REPEAT  1  35  20 

The  solution  is  given  below*  The  asterisk  denotes  instructions 
added*  Columns  45  and  46  were  arbitrarily  chosen* 

Instr*  Command 


14 

15 
*16 


BLOCKTRANSFER  , ,  ++  , ,  ,,  1 

INCREMENT  14  0,0  0,0  1,0 

ADD  1*  45  45 


>  i 


35  COMPARE  4  30  5*E-8 

36 

*37  INCREMENT  14  0  0  0  0  -1  0 

*38  SUBTRACT  1*  45  45 

*39  COMPARE  46  45  to  *005 

FINISH 

REPEAT  1  36  20 

*ADD  0  *  0  *  46 

*REPEAT  37  39  20 

5*  The  user  of  OMNITAB  is  not  required  to  use  subroutines,  many 
of  which  have  rigid,  complicated  instructions  for  their  use* 
Nevertheless,  in  the  analysis  of  data  certain  methods  are  used 
frequently  and  it  is  sometimes  useful  to  write  a  code  once,  so 
that  it  can  be  used  repeatedly  rather  than  be  rewritten  each 
time*  This  is  particularly  true  for  methods  which  are  lengthy  to 
program.  A  very  informal  library  of  OMNITAB  programs  has  been 
established  in  The  Statistical  Engineer  Laboratory  for  such 
analyses.  Included,  for  example,  in  the  library  are  Exponential 
Probability  Plot  for  Censored  Samples  (B*  L*  Joiner) ,  Analysis  of 
Residuals  (D*  Hogben)  and  the  Kolmogorov  Goodness- of  Fit  Test 
( J*  R •  Rosenblatt)  * 
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6 •  The  package  of  matrix  and  array  commands  can  be  used  in 
obvious  ways,  and  with  a  little  imagination  they  can  be  used  to 

construct  and  manipulate  two  dimensional  arrays*  Adding  a 

constant  ' ' a7 '  to  the  two-way  array  B  can  be  expressed  in  matrix 

notation  as  all'  +  B  =  C,  where  1  is  a  column  vector  of  ones-  An 

example  of  constructing  a  design  matrix  is  given  in  section  4- 

7 •  A  nicety  that  has  been  used  occasionally  is  to  insert  blank 
cards  in  a  program  to  separate  data  from  executable  commands  and 
to  subdivide  the  commands  into  logical  units-  The  blank  cards  are 
ignored  by  the  computer,  but  produce  a  blank  line  when  the  list 
of  commands  is  printed- 

8-  It  has  been  helpful  to  indicate  in  the  margin  of  this 
Handbook  the  number  of  arguments  for  each  matrix  and  array 
instruction  on  pages  184—186  and  191-193-  A  check  of  punched 
cards  against  these  numbers  significantly  reduces  the  number  of 
programming  errors- 

9 •  On  the  surface  it  seems  inefficient  and  costly  for 
scientists  to  punch  their  own  cards-  But  let's  examine  this  more 
closely-  Since  the  language  of  OMNITAB  is  close  to  technical 
English  and  the  number  of  instructions  in  a  program  is  usually 
small,  the  time  to  punch  cards  is  often  of  the  order  of  a  few 
minutes  •  This  time  can  also  be  spent  checking  the  program  and 
correcting  silly  mistakes-  The  time  taken  is  usually  considerably 
less  than  that  required  to  doublecheck  the  commands,  rewrite  the 
command  with  appropriate  instructions  for  punching,  see  that  they 
reach  the  appropriate  card  punch  operator  and  do  whatever 
repunching  is  necessary-  Moreover,  there  is  something  to  be  said 
for  ''getting  your  hands  dirty-''  The  statistician  R-  A-  Fisher 
is  reputed  to  have  spent  two  to  three  hours  a  day  at  a  desk 
calculator-  Some  people  believe  this  helped  the  development  of 
his  amazing  intuitive  power  or  at  least  helped  focus  his 
attention  on  ''real''  problems- 

10-  Input  to  OMNITAB  is  in  free-field  format-  This  is  certainly 
a  desirable  flexibility-  Those  of  us  who  have  been  annoyed  by 
having  to  punch  cards  so  that  the  information  starts  in  a 
specific  card  column  such  as  column  7,  are  pleased  to  be  able  to 
start  in  any  column  including  column  1-  There  are  indeed  a  few 
exceptions-  The  commands  FORMAT,  TITLE,  and  OMNITAB  must  start 
in  card  column  1-  Indeed  most  users  start  their  instructions  in 
column  1-  The  rule  —  when  in  doubt  start  in  column  1  —  is  always 
worth  following- 

11-  Some  of  the  instructions  may  (or  do)  change  the  current 
value  of  NRMAX •  It  has  proved  helpful  to  collect  the  names  of 
these  instructions  in  one  place-  The  instructions  that  have  been 
found  so  far  are: 

Input:  OMNITAB,  READ,  FREAD,  GENERATE,  SET 
Manipulative:  ERASE,  DEMOTE,  RESET,  SHORTEN,  INSERT 
Statistical  and  Numerical  Analysis:  GQUAD 
Repeat:  ISOLATE,  ITERATE,  ISETUP 
Array:  DUPLICATE 
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12 •  Although  flow  charts  are  unnecessary  for  the  use  of  OMNITAB, 
it  has  sometimes  been  helpful  in  more  complex  problems  to  keep 
track  of  where  data  and  intermediate  results  are  stored*  The 
following  chart,  reduced  from  8  l/ 2  x  11,  illustrates  the 
book-keeping  for  a  particular  problem* 

13*  Many  users  have  a  virtually  unshakeable  trust  in  computers 
and  computer  programs •  Others  who  have  had  the  experience  of 
running  exactly  the  same  program  on  two  different  computers  (or 
even  different  models  of  the  same  computer)  and  getting  different 
answers,  are  more  cautious*  The  careful  user  will  require 
evidence  that  the  computer  program  is  reliable*  Many  competent 
scientists  working  within  their  own  specialty,  have  contributed 
to  OMNITAB*  A  certain  reliability  has  thus  been  achieved  which 
probably  would  not  have  been  possible  if  the  program  had  been 
constructed  by  only  one  person* 
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11*2  Notes  on  Some  Specific  Commands 


No  user's  manual  can  be  complete*  Often  certain  subtleties 
are  observed  only  after  extensive  experience*  The  notes  given 
here  on  specific  instructions  are  based  on  the  experience  of  many 
users*  A  lot  of  the  information  was  obtained  from  self-teaching* 
The  commands  are  listed  in  order  of  page  number  on  which  they  are 
defined • 

1*  SQRT  OF  $$,  STORE  IN  ++  (p.  20)  • 

INVLD  is  called  and  computation  stopped  if  any  number  in  the 
column  is  negative*  Mathematical  zero  can  be  either  +0*  or  —0*  in 
the  computer*  In  the  latter  case  computation  would  halt* 

If  some  of  the  numbers  in  a  column  may  be  negative ,  but  it 
is  nevertheless  desirable  to  continue  computations  for  the 
positive  numbers,  precede  the  SQRT  command  by  PRINT  (or  some 
other  device  for  recording  the  location  of  negative  numbers)  and 
then  use  ABSOLUTE, 

2*  READ  COL  ++,  ++,  ++,  ++_,  .  (p*  28)  • 

SET  IN  COL  ++,  THE  ARG  ON  THE  FOLLOWING  CARDS  (p*  29) • 

Data  is  read  and  the  command  ' '  * • *  is  terminated  when  an 
executable  statement  is  encountered*''  Extra  care  should  be  taken 
to  ensure  that  the  first  executable  command  following  is  spelled 
correctly  or  the  card  will  be  interpreted  as  a  data  card*  For 
example,  the  cards 

SET  1 

X  1*2  Y  3*4  Z  5*6 
ORDIR  1 

will  cause  1*2,  3*4,  5*6,  and  1*0  to  be  read  into  column  1* 
ORDIR,  a  misspelling  of  ORDER,  is  not  an  executable  command* 
Consequently,  ORDIR  will  be  treated  as  a  comment  like  X,  Y  and  Z* 
(If  ORDIR  followed  an  excutable  command,  INVLD  would  be  called, 
computation  stopped  and  an  error  diagnostic  given*) 

3*  PLOT  COLS  ++,  ++,  AGAINST  ++,  ABSC  FROM  **  TO  **  ORD  FROM  ** 
TO  **  (P-30) • 

a*  It  is  permissible  to  provide  ranges  which  give  a  scale 
in  decreasing  order,  e*g* 

PLOT  COL  46  AGAINST  23  ABSC  FROM  100*  TO  0*  ORD  FROM  0*  TO  100* 

b*  There  is  room  for  one  line  of  title  (using  TITLE1  and 
TITLE3)  at  the  top  and  one  line  at  the  bottom  on  which  numeric 
information  can  be  printed  using  ABRIDGE  or  alpha  and/or  numeric 
information  using  FABRIDGE*  The  instructions  TITLE2,  TITLE4  and 
FOOTNOTE  are  ignored*  The  instruction  NOTE  will  cause  the 
information  to  be  printed  on  the  next  page* 
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4 •  FORMAT  (as  appropriate)  (p-  3  2)  • 

a*  The  I  and  A  formats  may  be  used  to  input ,  ORDER,  SORT, 
BLOCKTRANSFER,  DUPLICATE  and  output  data  in  the  same  type  format- 
However,  the  E  or  F  format  must  be  used  for  any  type  of 
arithmetic  operation*  The  X  and  H  formats  may  be  used  as  in 
FORTRAN • 

b*  Specifying  more  fields  in  the  FORMAT  statement  than 
columns  in  the  FPRINT  instruction  causes  no  difficulty,  (only  the 
first  necessary  fields  are  used) •  If  there  are  more  columns 
indicated  on  the  FPRINT  card  than  fields  on  the  FORMAT  card,  a 
given  worksheet  row  is  printed  on  one  line  until  all  fields  in 
the  FORMAT  have  been  used,  then  the  printing  of  the  row  continues 
on  a  new  line  with  the  FORMAT  being  reused  and  so  on  until  the 
entire  worksheet  row  has  been  printed*  The  printing  of  the  next 
row  starts  on  a  new  line  with  the  beginning  of  the  FORMAT-  For 
example,  the  instructions;  FORMAT  (X,F15*5)  and  FPRINT  45  46  will 

cause  the  numbers  in  (1,45);  (1,46);  (2,45);  (2,46);  . ; 

( NRMAX, 45) ;  (NRMAX,46)  to  be  printed  consecutively  in  one  column- 

c*  There  are  occasions  when  one  may  want  to  print  row 
titles*  This  can  be  done  easily  by  reading  in  and  printing  the 
titles  using  the  A  format  and  alloting  one  column  for  each  six  or 
less  characters  (including  blanks)*  For  example,  the  following 
instructions  could  be  used  to  print  row  titles  for  the  contents 
of  column  45  after  SFIT  with  three  vectors; 

FORMAT  ( 3A6) 

FREAD  4  CARDS  INTO  31  32  33 

STANDARD  DEVIATION 

ESTIMATE  OF  A 

ESTIMATE  OF  B 

ESTIMATE  OF  C 

FORMAT  ( 1H  , 3A6 ,  E15-6) 

RESET  4 

FPRINT  31  32  33  45 


5  •  SPACE  , ,  (p-  33)  • 

SPACE  will  be  ignored  if  used  just  before  PRINT  since  PRINT 
calls  for  a  new  page* 

6*  DEFINE  **  AS  ROW  ,,  COL  ++  (p*  36)  • 

DEFINE  1*0  AS  ROW  105  COL  31  is  interpreted  as  DEFINE  1*0 
AS  ROW  4  COL  32,  hence  care  is  needed  when  incrementing  this 
instruction  in  the  repeat  mode*  Of  course,  there  may  be  cases 
where  this  interpretation  is  desirable* 

7*  PARSUM  COL  ++,  STORE  IN  COL  ++  (p*  39)  • 

This  instruction  requires  two  column  numbers  and  no 
diagnostic  is  given  if  only  one  column  number  is  on  the  card*  The 
computer  seeks  a  second  argument  and  the  results  are  hard  to 
predict • 
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8-  RESET  ,  ,  ++  (p-  36) • 

This  instruction  makes  several  problems  easy  which  would  be 
difficult  without  it-  Often  one  wants  to  rest  NRMAX  to  its 
unknown,  original  value  after  it  has  been  changed,  either  within 
or  outside  the  repeat  mode-  The  original  value  of  NRMAX  can  be 
stored  in  the  worksheet  by  using  LENGTH  C  and  then  NRMAX  can  be 
restored  when  necessary  by  using  RESET  1,  C- 

9-  COUNT  LENGTH  OF  COL  ++,  STORE  IN  COL  ++  (p-  40)  • 

This  instruction  should  be  used  with  care-  If  x  ,  x  ,  and 

JL  Z 

x3  are  non-zero  numbers  and  NRMAX  is  5  then  the  results  stored  in 
the  following  examples  will  be  1 ,  5  and  2  respectively: 


(i)  xx,  0,  0,  0,  x2 

( ii)  x  x  x  0,  0 

(iii)  xj,  x‘,  0”  0,  0 

10-  ERROR  OF  $$,  STORE  IN  COL  ++  (p-  44) • 


The  normal  probability  integral 

x 


Gau(x)  =  1  j 

-\ry-zr 


lt2dt 


can  be  obtained  from  the  ERROR  function  using  the  relation 
Gau(x)  =  0-5  [1  +  erf(x/V2)]  • 


11*  FIT  COL  ++,  WEIGHTS  IN  COL  ++,  VECTORS  IN  ++,  ++,  --- 

(p-  112)  - 

The  degrees  of  freedom  for  the  standard  deviation  is  equal 
to  the  number  of  non-zero  weights  (NZW)  minus  the  number  of 
vectors  ( n)  fitted,  i-e- 


s  =  V  2  (  Ay±)  V  (NZW  -  n)  • 

12.  COMPARE  COL  ++  AND  ++  TO  A  TOLERANCE  OF  $$  (p-  157) • 

a-  If  one's  interest  is  in  relative  error  (significant 
digits)  of  column  X  compared  to  Y,  let  the  tolerance  $$  be  a 

—  8 

constant  K,  e-g-  K  =  l-E-8  ( 1  x  10  ) •  Then  the  instruction 

COMPARE  X  Y  K  causes  the  program  to  exit  from  the  repeat  mode  if 
| X— Y |  <  K-  In  iterative  procedures,  K  =  l»E-m  gives  X  accurate  to 
m  significant  digits,  but  this  will  be  a  conservative  use  if  the 
first  significant  digit  of  X  is  small-  If  the  tolerance  is  1-E-m, 
the  error  will  be  in  the  (m+l)st  significant  digit- 
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b*  If  interest  is  in  absolute  error  (decimal  places),  let 
$$  be  a  column, say  Z,and  precede  the  instruction  COMPARE  X  Y  Z  by 


DIVIDE  K  Y  Z* 

| X— Y 1  <  K* 

The  program  will  exit 

from 

the  repeat 

mode 

13.  MMULT  [A] 

IN  ,,  ++  R=  ,,  C=  ,,  BY 

IB] 

IN  ,,  ++ 

WITH 

COLUMNS, 

START  STORING  IN  , ,  ++ 

<p- 

184)  * 

For  computing  B2Qx4()  =  Cg0x4(),  the  instruction 


MMULT  1,41  30,20  81,1  40  1,1  , 

which  should  read 

MMULT  41,1  30,20  81,1  40  1,1  ; 

puts  the  matrix  outside  the  worksheet  and  havoc  may  result*  In 
one  instance,  it  caused  the  program  to  go  into  an  infinite  loop • 

14.  EIGENVECTORS  OF  [A]  IN  ,,  ++  R=  ,,  PUT  ROOTS  IN  COL  ++  AND 

VECTORS  STARTING  IN  , ,-  ++  (p*  186)  • 

a*  Roots  are  stored  in  decreasing  order* 

b*  Mathematically  zero  roots  may  be  far  from  zero  in  the 
computer  due  to  round— off  error*  2 

c*  The  eigenvectors  are  normalized,  i*e*,  =  1  and  are 

stored  as  an  array  of  column  vectors  in  order  corresponding  to 
the  order  of  the  roots. 

d*  Subject  to  ( b) ,  the  number  of  non— zero  roots  gives  the 
rank  of  a  normal  matrix  (i*e*  AA'  =  A' A) • 

15.  INVERT  [A]  IN  ,,  ++  R=  ,,  START  STORING  IN  ,,  ++ 

(p*  186)  * 

The  determinant  of  the  specified  matrix  is  automatically 
stored  in  row  1  of  column  46 • 

16-  BLOCKTRANSFER  A  IN  , ,  ++  R=  , ,  C=  , ,  TO  , ,  ++  (p*  192)* 

The  instruction  can  be  used  when  the  new  location  overlaps 
the  original  array  provided  the  direction  of  movement  in  the 


worksheet  is 

up 

or 

to  the 

left  * 

It  will 

not  work  if  the 

direction  is 

to 

the 

right  or 

down  • 

Note, 

it 

is 

illegal 

to  use 

R=0  in 

a  BLOCKTRANSFER 

instruction • 

INVLD 

is  called 

and  computation 

stopped • 

Often  it  is  desirable  to  eliminate  some  rows  and  columns  of 
a  matrix  and  close  up  the  resulting  spaces,  as  illustrated  in  the 
sketch  below*  To  eliminate  r  rows  starting  with  the  s  th •  row  and 
c  columns  starting  with  the  t  th •  column  of  an  m  x  n  matrix 
stored  starting  in  (a,b)  and  have  the  resulting  (m-r)x(n-c) 
matrix  stored  starting  in  (a,b) ,  one  can  use  the  following 
instructions*  The  first  instruction  eliminates  the  c  columns* 


BLOCKTRANSFER  (a,b+t+c-l) 


DIMENSIONS  (m,n-t-c+l)  TO  (a,b+t-l) 


BLOCKTRANSFER  (a+s+r-l,b)  DIMENSIONS  (m-s-r+l,n) 


TO  (  a+s— 1  ,b) 


Original  mxn  Matrix 


4 - - 


New  Matrix 
(m-r)x(n-c) 
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II -3  Frequency  Distributions 


The  instruction  STATISTICAL  ANALYSIS  gives  a  frequency 
distribution  in  the  automatic  printout*  The  distribution  is  not 
stored  and  the  number  of  cells,  10,  is  fixed-  This  is  usually  a 
minor  disadvantage,  but  there  are  times  when  a  frequency 
distribution  is  needed  in  the  worksheet  having  a  prechosen  number 
of  cells-  A  method  of  constructing  frequency  distributions  is 
given  below  preceded  by  a  technique  for  computing  the  number  of 
values  in  a  column  less  (or  greater)  than  a  specified  constant- 

Although  frequency  distributions  are  useful  in  many  areas, 
the  purpose  here  is  more  to  illustrate  certain  facets  of  OMNITAB • 
Finding  a  method  of  constructing  frequency  distributions  in  a 
computer  is  more  elusive  than  one  would  suspect  at  first  glance- 
But  I  contend  that  it  is  considerably  easier  for  a  wide  class  of 
scientists  to  think  and  solve  problems  in  OMNITAB  than  in  a 
language  more  foreign  to  technical  English-  The  wide  variety  of 
manipulative  commands  such  as  SHORTEN,  CENSOR  and  COALESCE  often 
reduces  the  size  of  a  problem  so  that  it  is  more  easily 
comprehended  and  solved-  Also,  it  is  interesting  to  observe  that 
just  a  few  commands  can  represent  a  fair  amount  of  logic  and 
computing • 

a-  Suppose  we  have  a  column  of  numbers,  X,  a  constant,  k,  and  we 
want  to  calculate  in  OMNITAB  the  number  of  X  values,  for  example, 
less  than  k  which  will  be  denoted  by  n(X  <  k) •  This  problem 
arises  frequently,  in  one  form  or  another- 


Compute  Y  =  (X  -  k-)/|X  -  k-|,  then: 

To  find;  Perform  operations  successively  on  column  Y 


n(X  >  k)  (  i)  Censor  for  0-0  replace  by  0-0  ( ii)  Sum 

n(X  >  k)  ( i)  Change  sign  ( ii)  Censor  for  0-0  replace  by  2-0 

( iii)  Subtract  1-0  ( iv)  Sum 

n(X  =  k)  ( i)  Censor  for  -1-0  replace  by  1-0  (ii)  Subtract 

1-0  (iii)  Change  sign  ( iv)  Sum 


n(X  <  k) 


( i)  Change  sign  ( ii)  Censor  for  0-0  replace  by  0-0 
(iii)  Sum 


r»(X  <  k) 


( i)  Censor  for  0-0  replace  by  2-0  (ii)  Subtract 
1-0  (iii)  Sum 


The  following  instructions  will  compute  n(X  <  k) ,  n(X  =  k) 
and  n(X  >  k)  simultaneously,  the  results  being  stored  in  rows  1, 
2  and  3  of  column  (R+l) •  D  is  any  storage  column- 
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SUB  k .  X  D 

ABSOLUTE  D  Y 
DIVIDE  D  Y  Y 

ADD  0-0  1.0  (Y+l) 

COALESCE  1,Y  101,2  1,R 

SORT  R  CARRY  ALONG  (R+l) 

b*  The  following  instructions  divide  x  values  into  k  cells  of 
width  c  and  compute  the  number  of  x  values  in  each  cell*  The 
lower  boundary  of  the  first  cell  is  denoted  by  a*  The  numbers  k, 
c  and  a  are  to  be  specified*  The  program  is  such  that  the  cells 
are  non— overlapping  and  each  x  value  falls  into  one  and  only  one 
uniquely  defined  cell*  Columns  M,  M+l,  M+2,  and  M+3  are  used  for 
storage . 

SUBTRACT  a  X  M 

DIVIDE  M  c  M 

CHOP  M  M 

ADD  1*0  MM 

COALESCE  ON  FIRST  COLUMN  OF  1,M  101,2  STORE  (M+2) 

DIVIDE  (M+3)  (M+2)  (M+3) 

SORT  (M+2)  CARRY  ALONG  (M+3) 

The  cell  number  i  =  1,  2,  * • *k  is  in  column  (M+2)  and  f^, 

the  frequency  of  x  values  in  cell  i,  is  in  column  (M+3) ,  where 
f^  is  the  number  of  x' s  such  that  a  <  x  <  a  +  ic*  This  program 

does  not  give  i  or  f^  for  those  cells  where  f^  =  0*  This  mild 

defect  is  overcome  below* 

To  obtain  i  and  f^  for  those  cells  where  f^  =  0,  eliminate 

the  SORT  instruction  in  (a)  and  replace  the  COALESCE  instruction 
by 


BEGIN 

COALESCE  ON  1*0  1,M  101,2  l,(M+2) 

INCREMENT  1  1*0  0,0  0,0  1,0 

FINISH 

REPEAT  12^ 
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11*4  Applications  to  the  Analysis  of  Experiments 


The  statistical  treatment  of  experimental  data  frequently 
includes,  at  some  intermediate  point,  an  analysis  of  variance 
based  on  a  particular  statistical  model,  often  one  representing 
an  experimental  design*  Many  texts  provide  convenient 
computational  formulas  for  specific  designs*  But  these  formulas 
were  developed  in  the  days  of  the  desk  calculator*  Anyone  wanting 
to  have  the  numerical  calculation  performed  on  an  electronic 
computer  is  immediately  faced  with  two  problems* 

First,  should  he  seek  or  write  a  subroutine  appropriate  for 
his  particular  problem  or  should  he  seek  a  general  purpose 
analysis  of  variance  program?  The  first  alternative  is  seemingly 
neither  appealing  nor  efficient*  The  second  can  be  very 
frustrating*  If  a  general  purpose  code  exists,  it  is  often 
cumbersome  to  use  and  may  not  cover  the  particular  model  in 
question • 

The  second  problem  concerns  the  accuracy  of  the  computing 
algorithm  used*  For  example,  many  people  still  insist  on  using 
the  so-called  computational  formula 

Li  (xi_5)2=  i*i2  - 1  ix^2/n  * 

despite  the  fact  the  right-hand  formula  is  most  inaccurate* 

Some  of  us  use  a  technique  which  has  several  desirable 
features  and  seems  worthy  of  recommendation  until  the  time  comes 
when  a  whole  new  approach  to  statistical  computing  is  developed* 
The  technique,  very  simply,  is  to  treat  each  problem  as  a  problem 
in  least  squares  (the  general  linear  hypothesis) • 

The  least  squares  approach  is  well  known,  but  its 
computational  advantages  are  often  overlooked*  The  technique  is 
completely  general;  the  FIT  instruction  which  is  used  is  simple 
and  there  is  substantial  evidence  that  the  algorithm  used  in  FIT 

is  of  high  quality  for  statistical  applications*^ 

To  illustrate  the  technique  and  ideas  involved,  two  examples 
are  given* 

Suppose  we  merely  wish  to  calculate  the  mean  and  standard 
deviation  of  a  set  of  data*  This  can  be  done,  of  course,  by  using 
STATISTICAL  ANALYSIS*  But  it  can  also  be  done  using  FIT*  Briefly, 
the  underlying  statistical  model  here  is(  2) 


( 1)  LONGLEY,  J*  W*  (1967)*  An  appraisal  of  least  squares  programs 
for  the  electronic  computer  from  the  point  of  view  of  the  user* 
J*  Amer*  Statist*  Assoc*,  62,  819-841* 

(2)  HICKS,  C*  R*  (  1964)  •  Fundamental  Concepts  in  the  Design  of 
Experiments*  Holt,  Rinehart  and  Winston* 
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' '  true'  ' 


mean 


y±  =  ^  +  e.  , 

where  the  yi  represent  the  measurements,  \x  is  the 
and  the  e.^  represent  the  random  component*  This  model  written  in 
the  least  squares  framework  is 

y.  =  nx.  +  ei  , 

where  x.^  is  identically  equal  to  one  and  ^  is  a  parameter  to  be 
estimated*  The  following  instructions  will  provide  the  answer: 

SET  Y  IN  COL  1 
[measurements] 

ADD  0*0  TO  1*0  STORE  IN  COL  2 

FIT  Y  IN  COL  1  WTS  IN  COL  2  X  IN  COL  2 

The  automatic  printout  gives  the  coefficient,  in  this  case  y 
(the  estimate  of  n-)  ,  its  standard  deviation  ( s-  =  s/-yTn)  ,  the 

standard  deviation  ( s)  and  the  residuals  (deviations)* 

Any  advantage  here  is  dubious  as  STATIST  gives  more 
information  and  in  a  form  more  recognizable*  But  in  the  second 
example  the  advantage  is  made  clearer* 

Suppose  we  have  a  two-way  table  with  three  rows  and  four 
columns,  as  illustrated,  for  measurements  • 


Col  1  Col  2  Col  3  Col  4 

Row  1 
Row  2 
Row  3 


A  common  statistical  model  in  this  situation,  stated 
briefly,  is 


11 

y  12 

V13 

v14 

21 

y22 

I23 

y  24 

31 

y32 

y33 

y34 

yij= 


yj 


+  e 


i  J  9 


with  the  constraints 


i=l 


P 

i 


The  parameter  \x  represents  the  overall  mean,  p  i 

effect  of  the  ith  row  and  y  .  the  effect  of  the  jth  column* 

J 

the  least  squares  framework  the  model  can  be  written 


the 

In 


yk=  PlXlk+  e2X2k+  S3X3k+ 
where  k=l , 2, • • *3 rc=12 


3.x  .,+ 

4  4k 


P5X5k+ 


P6X6k 


ek 


f 


and  n,  P2=  Pl,  e3=  p2,  e4=  Yx,  e5=  v2  and  pg=  Yg  are 
the  parameters  to  be  estimated  and  x^k,  *2k,  ••*,  xgk  are  fixed, 
known  constants*  As  before,  xlk  is  identically  equal  to  one. 


27  0 


1 


2k 


3k 


=  0, 

=  -1, 


0,  if  yk  is  in  the  first  row 
1,  if  is  in  the  second  row 
— 1,  if  yk  is  in  the  third  row* 


The  constraint 


r=3 

.£  p.  =0  implies  that  p 

1  —  -L  JL  u 


p r  p2  so  in 


fact  we  have  two  rather  than  three  parameters  to  be  estimated 
the  relation  x„,  =  =  —1 


It 


explains 
and  x6k 


2k  3k 
are  defined  in  a  similar  manner 


The  constants  x,,  ,x^, 
4k  5k 


The  model  can  be  conveniently  expressed  in  matrix  notation 
as  y  =  X3  +  e*  For  clarity  the  matrices  are  written  out  in 
full. 


y  = 


MATRIX  NOTATION 


.11 

.12 

13 

.14 

.21 

.22 

.23 

.24 

,31 

.32 

.33 

34 


X3  +  e 


110  10  0 

110  0  10 

1  1  0  0  0  1 

1  1  0  -1  -1  -1 

10  110  0 

10  10  10 

10  10  0  1 

1  0  1  -1  -1  -1 

1-1-1  1  0  0 

1-1-1  0  1  0 

1-1-1  0  0  1 

1  -1  -1  -1  -1  -1 


p 

c 

Y 

Y 

Y 


1 

2 


+ 


e 

G 

e 

e 

e 

g 

G 

G 

e 

G 

e 

G 


11 

12 

13 

14 
21 
22 

23 

24 

31 

32 

33 

34 


With  this  basic  background  the  computing  is  straightforward* 
One  can  SET  the  measurements  in  any  specified  column,  READ  in  the 
design  matrix  X  and  then  FIT*  Often,  it  is  convenient  to  compute 
the  design  matrix  X  using  the  matrix  instructions  as  is 
illustrated  in  the  following  set  of  instructions  for  this 
problem*  The  X  matrix  is  stored  in  the  first  twelve  rows  of 
columns  10  through  15* 


OMNITAB  8/23/67  TWOWAY  ANALYSIS 
RESET  4 

DIAGONALIZE  1*  INTO  COLS  13  TO  16 

ADD  1*  TO  0*  STORE  COL  10 

ADD  0*0  TO  -1*  STORE  16 

MTRANS  1,16  3,1  STORE  4,13 

DUPLICATE  2  TIMES  1,10  4,  6  STORE  5,  10 


BLOCKTRANSFER 

1,16 

4,1 

STORE 

9,11 

BLOCKTRANSFER 

1,16 

4,1 

STORE 

9,12 

BLOCKTRANSFER 

1,10 

4,1 

STORE 

1,11 

BLOCKTRANSFER 
SET  Y  IN  COL  1 

(  .  ) 

FIT  Y  IN  COL  1 

1,10 

4,1 

STORE 

5,12 

WTS  IN 

COL 

10  VECTORS  10 
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The  sums  of  squares  for  an  analysis  of  variance  can  be 
picked  off  from  the  automatic  printout-  The  first  SQUARED 
FOURIER  COEFFICIENT  (see  for  example  p-  134)  is  the  so-called 
correction  factor  or  sum  of  squares  due  to  the  mean-  The  sum  of 
the  second  and  third  SQUARED  FOURIER  COEFFICIENTS  gives  the  Row 
sum  of  squares  and  the  fourth,  fifth  and  sixth  give  the  Column 
sum  of  squares*  The  last  SUM  OF  SQUARED  RESIDUALS  is  the  Residual 
sum  of  squares*  Finally,  the  last  FOURIER  COEFFICIENT  is  the 
Total  sum  of  squares- 

The  above  analysis  is  easily  modified  for  other  experimental 
designs  by  simply  reading  in  or  constructing  the  appropriate 
design  matrix*  For  example,  if  there  are  replications,  all  that 
is  required  is  to  duplicate  the  X  matrix  for  each  replication- 
The  method  is  simple  and  gives  a  small  chance  of  making 
programming  errors-  The  residuals  (or  deviations),  which  are 
vital  in  assessing  the  adequacy  of  the  model,  are  automatically 
available  for  STATISTICAL  ANALYSIS  and/or  plotting*  Also,  in  the 
least  squares  framework,  problems  of  non— orthogonality  and 
missing  values  (or  rejected  outliers)  are  minimized*  All  that  is 
required  is  to  erase  the  row  containing  the  missing  observation 
or  assign  zero  weight  to  the  observation  and  do  separate  FITS  for 
each  of  the  analyses*  For  example,  in  a  two-way  classification 
fitting  the  mean,  rows  and  columns  in  that  order  would  give  the 
unadjusted  row  sum  of  squares  and  the  adjusted  (for  rows)  column 
sum  of  squares  for  testing  differences  between  column  means-  Then 
fitting  the  mean,  columns  and  rows  in  that  order  provides  the 
unajusted  column  sum  of  squares  and  the  adjusted  row  sum  of 
squares  for  testing  differences  between  row  means-  Experience  has 
shown  that  programs  can  easily  be  written  and  punched  in  less 
than  one— half  hour,  free  of  errors,  to  analyze  data  for  more 
complex  designs  such  as  a  replicated  partially  balanced 
incomplete  block  design* 

To  obtain  the  greatest  assurance  of  numerical  accuracy  it  is 
usually  best  to  subtract  a  constant  from  all  the  measurements 
before  using  FIT-  Often,  the  mean  is  used,  but  since  this 
introduces  some  round-off  error  it  may  be  preferable  to  subtract 
some  other  number  like  the  smallest  measurement  or  the  median* 
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THE  NATIONAL  BUREAU  OF  STANDARDS 


The  National  Bureau  of  Standards  is  a  principal  focal  point  in  the  Federal  Government  for 
assuring  maximum  application  of  the  physical  and  engineering  sciences  to  the  advancement  of 
technology  in  industry  and  commerce.  Its  responsibilities  include  development  and  maintenance 
of  the  national  standards  of  measurement,  and  the  provisions  of  means  for  making  measurements 
consistent  with  those  standards;  determination  of  physical  constants  and  properties  of  materials; 
development  of  methods  for  testing  materials,  mechanisms,  and  structures,  and  making  such  tests 
as  may  be  necessary,  particularly  for  government  agencies;  cooperation  in  the  establishment  of 
standard  practices  for  incorporation  in  codes  and  specifications;  advisory  service  to  government 
agencies  on  scientific  and  technical  problems;  invention  and  development  of  devices  to  serve  special 
needs  of  the  Government;  assistance  to  industry,  business,  and  consumers  in  the  development  and 
acceptance  of  commercial  standards  and  simplified  trade  practice  recommendations;  administration 
of  programs  in  cooperation  with  United  States  business  groups  and  standards  organizations  for  the 
development  of  international  standards  of  practice;  and  maintenance  of  a  clearinghouse  for  the 
collection  and  dissemination  of  scientific,  technical,  and  engineering  information.  The  scope  of 
the  Bureau’s  activities  is  suggested  in  the  following  listing  of  its  three  Institutes  and  their  organiza¬ 
tional  units. 

Institute  for  Basic  Standards.  Applied  Mathematics.  Electricity.  Metrology.  Mechanics. 
Heat.  Atomic  Physics.  Physical  Chemistry.  Laboratory  Astrophysics.*  Radiation  Physics. 
Radio  Standards  Laboratory:*  Radio  Standards  Physics;  Radio  Standards  Engineering.  Office  of 
Standard  Reference  Data. 

Institute  for  Materials^  Research.  Analytical  Chemistry.  Polymers.  Metallurgy.  Inorganic 
Materials.  Reactor  Radiations.  Cryogenics.*  Materials  Evaluation  Laboratory.  Office  of 
Standard  Reference  Materials. 

Institute  for  Applied  Technology.  Building  Research.  Information  Technology.  Perform¬ 
ance  Test  Development.  Electronic  Instrumentation.  Textile  and  Apparel  Technology  Center. 
Technical  Analysis.  Office  of  Weights  and  Measures.  Office  of  Engineering  Standards.  Office 
of  Invention  and  Innovation.  Office  of  Technical  Resources.  Clearinghouse  of  Federal  Scientific 
and  Technical  Information.** 


*Located  at  Boulder,  Colorado,  80301. 

**Located  at  5285  Port  Royal  Road,  Springfield,  Virginia,  22171. 
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